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Ciiapter  1 

BASIS  OF  RESIDUE  NUMBER  SYSTEM 

1.1  The  Chinese  Remainder  Theorem 

There  are  two  large  penalties  in  performing  arithmetic  in  the  two’s  complement  sys¬ 
tem:  the  carry  must  propagate  across  the  entire  word  for  addition  operations,  and 
the  size  of  the  multiplier  grows  a.s  the  square  of  the  width  of  the  word.  The  Chinese 
Remainder  Theorem  (CRT)  [1,  2]  suggests  a  means  of  eliminating  the  carry  propa¬ 
gation  problem  and  of  producing  a  multiplier  that  grows  linearly  with  the  width  of 
the  word.  The  CRT  is  presented  below. 

Theorem  1  (The  Chinese  Remainder  Theorem)  Let  M  =  HLi  Pi,  where  for 
ij  €  {1,2,3,  gcd{pi,pj)  =  1  for  all  i  ^  j,  and  each  pi  €  Z+.  Then  there 

exists  an  isomorphism  f:  Zm  ^  Zpj  x  Zp^  X  Zpj  x  •  •  •  x  Zp^  described  by  the  following. 

Let  rui  =  M/pi,  and  m,m"^  =  1  (mod  p,)  for  all  i  e  {1,2,3,...,!}.  If 
X  6  Zm,  let  0{X)  =  {xi,X2,Xz, . . .  ,xl)  where  Xi  =  X  (mod  p,-)  for  all  i  G 
{1,2,3,...,!}  then  X  =  o~^{xi.,X2,Xzt  . .  ,xi)  is  described  by  the  following  con¬ 
gruence 

AT  =  <  mj'^Xi  >p.|  (mod  M) 

where  <  •  >p  indicates  the  unary  (mod  p)  operation. 

The  CRT  forms  the  basis  for  the  RNS.  In  the  RNS,  two’s  complement  integers 
are  converted  to  their  !-tuple  residue  representation  by  the  ring  isomorphism  f  : 
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3 

^  Zpj  X  Zp2  X  Zp3  X  •  •  •  X  Zp^  described  by  the  CRT.  The  numbers  which  are 
in  their  L-tuple  representation  may  be  added  and  multiplied  component-wise  and 
reconstructed  via  the  CRT  to  form  the  correct  result  in  For  example,  consider 
the  RNS  system  described  by  pi  =  3,  P2  =  5,  and  ps  =  7.  Then  M  =  P1P2P3  =  105. 
Let  a  =  7,  and  b  =  9  where  a,b  £  Zm-  The  numbers  a  and  b  may  be  mapped  to 
their  RNS  3-tuple  representation  via  the  mapping  <p: 

(^(a)  =  (<  7  >3,  <  7  >5,  <  7  >7)  =  (1, 2, 0) 

<^{b)  =  (<  9  >3,  <  9  >5,  <  9  >7)  =  (0, 4, 2). 

Arithmetic  may  be  performed  on  the  RNS  T— tuple  representation  of  c,  6  € 
given  by  the  mapping  6.  Let  ^(a)  =  (oi,  03,  as,  •  -  • ,  <^l)i  4>{b>)  =  (5i,  ^3, . . . ,  ii,). 

Then 

<i){a  o  6)  =  (<  oi  o  61  >pi5  <  02  0  ^2  >p2,  <  03  0  63  >p3, . . . ,  <  0£,  o  >pj^), 

where  o  €  ,  x}.  Consider  the  3-tuple  representations  of  o  and  b: 

(1,2,0)  +  (0,4,2)  =  (<  l-bO  >3,<  2-i-4  >5,<  0  +  2  >7)  =  (1, 1,2)  (1.1) 

(1,2,0)  X  (0,4,2)  =  (<  1  •  0  >3,<  2 -4  >5,<  0 -2  >7)  =  (0,3,0).  (1.2) 

For  comparison,  the  mapping  of  a  -t-  6  =  16  and  ab  =  63  to  their  RNS  3— tuple 
representation: 

<j>{a  +  b)  =  (<  16  >3,<  16  >5,<  16  >7)  =  (1,1,2)  (1.3) 

(j>{ab)  =  (<  63  >3,  <  63  >5,  <  63  >7)  =  (0, 3, 0)  (1.4) 

The  operations  performed  on  the  RNS  representations  of  a  and  b  (equations 
1.1, 1.2)  give  the  same  results  as  the  RNS  representation  of  a  +  b  and  ab  (equations 
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1.3,  1.4)  performed  in  Zm-  Now  consider  the  restoration  of  the  representation  of 
a  -r  b,ab  E  Zm  from  the  RNS  representations.  For  (pi,P2,P3)  =  (3,5,7)  we  have 
mi  —  35,  mi^  =  2,  m2  =  21,  =  1,  m3  =  15,  and  =  1.  From  above  we  have 

<j){a  +  6)  =  (1, 1, 2),  and  <p{ab)  =  (0, 3, 0). 

^"’■(1,1,2)  =  S.Y.mi  <m~'^Xi>p. 

Lt=i 

=  _  {35  <  2  •  1  >3  +21  <  1  •  1  >5  +15  <  1  •  2  >7}  (mod  105)  =  16 
<?i>~^(0,3,0)  =  l^m,- <  m'^Xi  >p.|  (mod  105) 

=  {35  <  2  •  0  >3  +21  <  1  ■  3  >5  +15  <1-0  >7}  (mod  105)  =  63 

Thus  we  see  that  the  results  produced  by  the  mapping  <j>~^  are  as  expected. 
Generally,  the  moduli  are  chosen  to  be  small  enough  that  the  adders  and  multipliers 
may  be  implemented  in  a  reasonably  small  memory-based  lookup  table.  In  a  VLSI 
implementation  we  might  leverage  advanced  memory  technology  and  thereby  achieve 
greater  speed  and  smaller  die  area. 

1.2  Complex  Residue  Number  System  (CRNS) 

The  RNS  may  be  used  to  perform  computations  with  complex  numbers  by  using  RNS 
arithmetic  elements  to  emulate  the  operations  which  would  be  performed  using  two’s 
complement  hardware.  The  use  of  RNS  arithmetic  to  perform  complex  operations  is 
called  complex  RNS  or  CRNS.  Suppose  we  have  Gaussian  integers  a  +  c  +  jd  6 
2'm{j]/(j^  +  1):  and  ^  denotes  the  isomorphism  between  the  Gaussian  integers  and  the 
CRNS:  tp :  Z;Vf[;]/ [p-rl)  Zp^  X  Zpj  x  Zpj  x  •  •  •  x  Zp^  x  Zp^  x  Zp^  X  Zpj  X  •  •  •  X  Zp^. 

Then 


(mod  105) 


{a  + jb)  +  {c  + jd)  =  {a  +  c)  +  j{b  +  d) 
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=  +  V’(&)}  +  +  i’W 

{a  +  jb)  X  {c  + jd)  =  {ac— bd)  +  j{ad +  bc) 

=  ^"^{^(a)^(c)  —  'ip{b)ip{d)}  +  ji;~^{'il;{a)'tp{d)  +  ^(6)i/’(c)}. 

While  the  complex  addition  takes  only  two  additions,  the  complex  multipli¬ 
cation  takes  four  multiplications  and  two  additions:  the  CRNS  requires  the  same 
number  of  additions  and  multiplications  as  the  Gaussian  integers. 

1.3  Quadratic  Residue  Number  System  (QRNS) 

The  QRNS  [3,  4]  is  a  variation  upon  the  RNS  which  allows  complex  additions  to 
be  performed  with  two  RNS  additions  and  complex  multiplications  to  be  performed 
with  two  RNS  multiplications.  This  enhancement  is  accomplished  by  encoding  the 
real  and  imaginary  components  into  two  independent  components.  Given  a  prime  p 
of  the  form  p  =  4^  -1- 1  where  k  e  Z  then  the  congruence  =  —  1  (mod  p)  has  two 
solutions  in  the  ring  Zp  that  are  multiplicative  and  additive  inverses  of  one  another. 
Let  j  and  j~^  denote  the  two  solutions  to  the  above  congruence.  Define  a  mapping 
d:  Zp[j]/{f +  1) -^ZpxZphy 

e{a  +  jb)  = 

z  =  (a  +  jb)  (mod  p) 
z*  =  (a  —  jb)  (mod  p). 

Furthermore,  the  inverse  mapping  :  Zp  x  Zp  — >■  Zp[j]/{p  +  1)  is  given  by 
r^(z,z*)  =<  2-^(z-f-z*)  >p+j  <  2"^;-^(z-z*)  >p  . 

Suppose  (z,z*),(u;,ti;*)  €  Zp  x  Zp.  Then  the  addition  and  multiplication 
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operations  in  the  ring  <  Zp  x  Zp,  +,  •  >  are  given  by 

{z,z’‘)  +  {w,w'‘)  =  (z  +  w,z'‘ w”) 

{z,z*)(w,w'‘)  =  {zw,z'^w“). 

For  example,  consider  a  QRNS  system  with  moduli  pi  =  5  and  p2  =  13.  Let 
the  Gaussian  integers  u,  u  €  Z[j]/(j^  +  l)  be  given  as  u  =  5+j3,  and  v  =  4-f  j3.  In  Z5 
we  have  =  2  and  j-^  ^  =  3.  It  can  be  seen  that  2  and  3  are  additive  and  multiplicative 
inverses  of  each  other  in  Z5  and  also  satisfy  the  congruence  =  —1  (mod  5).  In 
Zi3  we  have  Jb  =  5  and  =  8.  Also,  2~’-  =  3  (mod  5),  and  2”^  =  7  (mod  13). 

Therefore  the  QRNS  representations  of  u  and  v  are  given  by 

6{u)  =  [zu.zD 

=  (<  5  +  ji3  >5,  <  5  4- jbS  >13)  =  (1, 7) 

—  (<  5  —  ii3  >5,  <  5  —  723  >13)  =  (4, 3) 

e{v)  =  {z^,zl) 

=  (<  4  +  7i3  >5,  <  4  +  jbS  >13)  =  (0,  6) 

<  =  (<4-;i3>5,<4-723>z3)  =  (3,2). 

The  arithmetic  operations  in  the  QRNS  are  performed  in  the  same  manner  as  in  the 

RNS.  For  example: 

${u)  +  9(v)  =  (z^  +  z^,  z’  +  z;;)  =  (z„+„,  z‘^J 

Zu+v  =  (<  1 +  0  >5,<  7  4-6  >13)  =  (1,0) 

=  (<  4 +  3  >5,<  3  A2  >13)  =  (2,5) 

9(u)9(v)  =  (zuZy,z*z;;)  =  (z^^,z’J 

Zuv  =  (<  1 -0  >5,  <  7-6  >13)  =  (0,3) 
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^uv  —  (<  4  •  3  >5,  <  3  •  2  >13)  —  (2,6). 


For  comparison,  note  that  uv  =  ll+j27  and  w+u  —  9+j6.  The  QRNS  representations 
of  uv  and  u  +  u  are  given  as 


0(u  +  u)  = 

^'u-¥v  —  (<  9 +  il6  >5,  <  9 +^26  >13)  =  (1,0) 

<+v  =  (<  9- ji6  >5,<  9 -;26  >13)  =  (2,5) 

Q{uv)  -  «^,<(,) 

=  (<ll+ii27>5,<ll+;227  >i3)  =  (0,3) 

=  (<ll-;i27>5,<ll-j227  >i3)  =  (2,6). 


The  above  results  for  the  QRNS  representations  9{uv)  and  9{u-\-v)  agree  with 
9[u)9[v)  and  9{u)  +  9{v)  computed  in  the  QRNS  representation.  The  isomorphism  9 
is  generally  implemented  by  a  combination  of  arithmetic  elements  and  table  lookup. 
Since  the  z  and  z*  channels  are  independent  we  are  able  to  easily  construct  parallel 
hardware  to  perform  operations  on  both  channels  at  the  same  time  without  any 
communication  between  the  channels.  This  parallelism  allows  us  to  easily  perform 
a  complex  addition  or  multiplication  in  one  cycle.  While  parallel  hardware  would 
allow  us  to  perform  a  CRNS  addition  in  one  cycle,  the  multiplication  in  the  CRNS 
requires  two  additions  and  four  multiplications.  Using  the  same  amount  of  hardware 
as  a  QRNS  multiplier-accumulator,  a  CRNS  multiplier-accumulator  would  take  twice 
as  many  cycles  to  complete  a  single  multiply- accumulate  operation. 
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1.4  Galois  Enhanced  QRNS  (GEQRNS) 

The  QRNS  requires  us  to  implement  a  multiplier  which  takes  N  bit  inputs  and  pro¬ 
duces  an  N  bit  output.  The  multiplier  could  be  implemented  using  either  a  direct 
implementation  with  modular  correction  or  a  lookup  table.  The  primary  disadvan¬ 
tage  of  this  is  that  despite  the  small  size  of  the  RNS  adder,  the  multiplier  is  still 
large.  We  may  take  advantage  of  the  properties  of  Galois  fields  [5]  to  simplify  the 
implementation  of  an  RNS  multiplier. 

For  any  prime  modulus  p  there  exists  some  o;  €  Zp  that  generates  all  non¬ 
zero  elements  of  the  field  GF{p).  That  is  to  say  {a"  j  i  =  0, 1, 2, . . .  ,p  —  2}  = 
GF{p)  \  0.  Thus,  we  may  uniquely  represent  all  non-zero  elements  of  Zp  by  their 
exponents.  These  number  theoretic  logarithms  may  be  added  modulo  p  —  1  to  produce 
multiplication:  =<  >p.  Note  that  since  zero  is  not  an  element  of 

GF{p)  \  0  the  zero  must  be  handled  as  an  exception.  Practically,  this  means  that  the 
inputs  must  be  checked  before  the  number  theoretic  logarithm  to  determine  whether 
either  one  is  a  zero,  and  if  one  of  the  inputs  is  a  zero,  then  the  output  of  the  multiplier 
should  be  set  to  zero. 

For  example,  suppose  that  p  =  7.  Then  o;  =  3  generates  GF(7)  \  0:  {3*  | 
i  =  0,1, 2, 3, 4, 5}  =  {1,3,2, 6,4, 5}.  Suppose  we  wish  to  multiply  2  and  3.  First  we 
would  take  the  number  theoretic  logarithm  of  2  and  3  to  the  base  o;  =  3: 

logs  (2)  =  2  3^  =  2  (mod  7) 

log3(3)  =  1  3^  =  3  (mod  7). 

In  order  to  multiply  2  and  3  we  now  add  the  number  theoretic  logarithms  modulo 

p-1: 

2  •  3  =<  3'  ■  3^  >7=<  >7=<  3^  >7=  6. 
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The  architecture  of  a  GEQRNS  multiplier  is  illustrated  in  Figure  1.1  without 
the  zero  detection  and  handling  indicated.  The  multiplier  requires  two  duplicate 
A^-entry  memories  to  perform  the  number  theoretic  logarithm,  and  an  N  +  1-entry 
table  to  perform  the  modulo  p  —  1  correction  and  number  theoretic  exponentiation. 
Note  that  while  the  modulo  p  —  1  correction  and  number  theoretic  exponentiation 
represent  two  separate  steps,  they  may  be  integrated  into  a  single  table.  Typically, 
the  multiplicands  will  be  converted  to  the  GEQRNS  number  theoretic  logarithm  form 
by  the  conversion  engine  which  computes  the  residues  of  the  integer  inputs. 


<a£)>„ 


Figure  1.1;  Block  Diagram  of  a  GEQRNS  Multiplier 


1.5  L-CRT 

The  T-CRT  [1,  2]  offers  an  alternative  to  the  CRT  which  hais  the  advantage  of  in¬ 
tegrating  scaling  into  the  CRT  and  avoiding  the. need  for  a  modulo  M  adder.  The 
Zr-CRT  is  computed  by  factoring  M  into  a  real  scale  factor  V  and  an  integer  M'  =  2^, 
where  k  e  Z+,  such  that  M  =  V M' ,  a.nd  0  <  M'  <  M.  Additionally,  as  for  the 
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CRT,  rrii  =  M/p,'.  The  T-CRT  is  given  as 

Xs  =  <  rnj'^Xi  >pi  /Rjj  (mod  M'), 

where  denotes  the  least  integer  or  floor  function.  Since  M'  =  2^  where  ^  6  Z'*' 
we  may  compute  the  sum  Xs  using  regular  ^-bit  two’s  complement  adders.  The 
[m,-  <  m~'^Xi  >p.  jV\  term  for  any  fixed  set  of  moduli  is  dependent  only  upon  x,- 
and  thus  may  be  generated  using  a  small,  fast  memory  based  table  lookup.  The 
disadvantage  of  the  L-CRT  is  that  it  may  introduce  an  error  into  the  computed  Xs- 
The  error  in  the  T-CRT  is  given  by  0  <  \XjV  —  X5I  <  L.  For  front-end  signal 
processing  applications  this  error  is  not  critical  since  L  <C  M.  A  block  diagram  of 
two  T-CRT  engines  is  shown  in  Figure  1.2. 

The  T-CRT  has  the  advantage  of  avoiding  the  modulo  M  adder  required  to  im¬ 
plement  the  ‘true’  CRT  and  provides  a  means  of  scaling  without  additional  hardware. 
For  VLSI  and  discrete  implementations  this  advantage  is  particularly  important  since 
division,  like  multiplication,  are  space-time  intensive  and  cannot  be  performed  in  the 
RNS  since  it  is  division-free. 
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Residue  Residue  Residue 


T 

L-CRT 

(a) 


(b) 


Figure  1.2:  Block  Diagram  of  IrCRT  (a)  and  QRNS  Augmented  L  CRT  (b) 
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Chapter  2 
INTRODUCTION 

2.1  Motivation 

There  exists  a  need  for  an  environment  appropriate  to  the  task  of  developing  ex¬ 
perimental  array  processors.  This  need  is  indicated  by  the  large  I/O  requirements 
and  physical  size  of  experimental  array  processors.  Traditional  environments  such  as 
personal  computers  or  laxger  systems  such  as  the  VME  bus  are  not  appropriate  as 
they  lack  adequate  space  and  I/O  capabilities.  Thus  the  motivation  is  established  for 
the  development  of  a  testbed  for  experimental  array  processors. 

Additional  capabilities  are  desirable.  In  particular,  beyond  the  need  to  solve 
physical  form  factor  problems  and  I/O  bandwidth  bottlenecks,  there  is  an  additional 
desire  that  the  system  should  be  host  independent.  The  ideal  host  interface  for 
achieving  host  independence  is  the  SCSI  interface.  The  SCSI  interface  exists  on 
all  common  personal  computers  and  workstations.  There  also  exist  a  number  of 
peripherals  which  may  take  advantage  of  the  SCSI  interface,  thus  allowing  the  testbed 
to  utilize  a  number  of  mass  storage  and  data  acquisition  products. 

2.2  Design  Parameters 

Given  the  motivation  presented  in  the  previous  section,  the  design  parameters  are 
described  as  follows.  The  control  of  the  array  processor  and  the  SCSI  interface  require 
substantial  machine  intelligence.  Thus  the  selection  of  a  microprocessor  is  required. 
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The  Motorola  68030  was  selected  since  it  is  capable  of  sustaining  block  data  moves 
of  approximately  forty  megabytes  per  second  (at  20  MHz),  and  because  of  previous 
design  experience  with  the  68000  family.  First  generation  SCSI  controller  chips  such 
as  the  NCR  8350  require  substantial  processor  intervention  in  order  to  operate:  each 
byte  transferred  causes  an  interrupt  to  occur.  Additionally,  these  first  generation 
SCSI  controller  chips  were  only  capable  of  asynchronous  operation  at  data  rates  of 
approximately  1.6  megabytes  per  second  while  many  hosts  operate  synchronously  at 
a  maximum  data  rate  of  five  megabytes  per  second.  A  second  generation  device  was 
selected,  the  Western  Digital  33C93A.  The  WD33C93A  (second  sourced  by  Advanced 
Micro  Devices  and  sometimes  referred  to  as  the  Am33C93A)  executes  SCSI  commands 
independently  of  the  host  processor  and  is  capable  of  transmitting  large  quantities 
of  data  without  host  intervention.  For  purposes  of  debugging,  the  array  processor 
testbed  also  features  RS-232C  serial  communications. 

Memory  requirements  for  the  testbed  are  modest.  The  testbed  need  only 
buffer  data  transactions  between  the  host  and  array  and  perform  some  translation 
of  commands  from  the  host  to  the  array.  Thus  it  was  determined  that  the  testbed 
processor  would  only  require  one  megabyte  of  high  speed  RAM  and  128  kilobytes 
of  ROM.  Since  the  processor  typically  is  moving  large,  contiguous  blocks  of  data 
between  the  SCSI  processor  and  the  array  processor,  a  memory  architecture  which 
performs  well  in  block  operations  is  desirable.  A  dynamic  RAM  variant  called  static- 
column  RAM  (SCRAM)  is  particularly  well  suited  to  this  task.  The  SCRAM  is 
fundamentally  a  standard  DRAM,  however,  once  the  row  address  has  been  latched 
into  the  device,  the  device  operates  as  a  static  RAM  for  all  subsequent  accesses 
to  that  row  of  memory.  These  accesses  may  occur  until  refresh  is  required.  The 
advantage  to  this  means  of  memory  operation  are  that  a  70  ns  device  offers  35  ns 
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access  times  during  static  column  operation.  The  static  column  mode  of  operation 
is  s3''nergistic  with  the  68030’s  burst  mode  of  operation.  Using  the  burst  mode  of 
operation  the  68030  may  read  four  longwords  with  reduced  penalty.  In  particular,  in 
the  burst  mode  of  operation,  the  worst-case  first  word  read  time  is  two  clock  cycles  (at 
20  MHz,  Tcycie  —  50ns).  Subsequent  accesses  in  non-burst  mode  still  execute  in  two 
clock  cycles.  Subsequent  burst-mode  accesses  execute  in  one  clock  cycle.  Thus,  the 
maximum  memory  bandwidth  without  burst  access  is  forty  megabytes  per  second, 
while  the  maximum  memory  bandwidth  with  burst  access  is  sixty-four  megabytes  per 


second. 
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IMPLEMENTATION 


This  chapter  describes  the  implementation  of  the  InvestiGATOR  array  pro¬ 
cessor  testbed.  The  description  is  broken  into  modules  reflecting  the  various  major 
components  of  the  backplane:  the  CPU,  the  memories,  the  I/O  components,  the 
array  interface,  and  remaining  miscellaneous  material. 

3.1  Architecture 

The  InvestiGATOR  backplane  and  SCSI  control  processor  is  constructed  from  sev¬ 
eral  discrete  blocks.  These  blocks  may  be  divided  into  four  groups.  The  first,  the 
CPU  is  based  upon  the  Motorola  MC68030.  The  second,  the  memory,  consists  of 
one  megabyte  of  high  performance  static-column  RAM,  and'  128  kilobytes  of  low 
performance  EPROM.  The  third  group  is  the  I/O  module  which  includes  a  high  per¬ 
formance  SCSI  port,  dual  RS-232C  serial  ports,  and  an  I/O  expansion  port.  The 
fourth  group  is  the  array  bus  and  interface.  A  block  diagram  of  the  InvestiGATOR 
is  shown  in  Figure  3.1. 

The  SCSI  port  is  a  single-ended,  eight-bit  implementation  supporting  syn¬ 
chronous  transfers  up  to  five  megabytes  per  second.  The  SCSI  port  has  a  local 
thirty-two  kilobyte  buffer  ■which  allows  the  central  processor  to  operate  without  in¬ 
terference  while  transfers  are  underway.  SCSI  packets  may  be  transferred  either  to  or 
from  the  InvestiG.A.TOR  with  as  few  as  two  interrupts  of  the  central  processor.  This 
autonomous  operation  allows  the  CPU  to  dedicate  a  large  percentage  of  its  processing 
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Figure  3.1:  Block  Diagram  of  the  InvestiGATOR  Array  Processor  Testbed 

budget  to  servicing  the  attached  experimental  array  processor. 

The  serial  port  supports  two  RS-232C  channels  with  programmable  baud  rates 
of  up  to  9600  bps.  The  serial  port  is  intended  to  act  primarily  as  a  debugging  tool. 
The  I/O  expansion  port  has  a  full  thirty-two  bit  data  bus,  twenty-bit  address  bus,  and 
interrupt  capabilities.  This  bus  may  be  used  to  attach  data  acquisition,  additional 
I/O  capabilities,  or  memory. 

The  RAM  block  is  based  upon  static-column  RAM  supporting  synchronous 
and  burst-mode  accesses.  This  memory  offers  very  high  performance  in  block  trans¬ 
fers. 

3.2  CPU  Module 


This  section  describes  the  generation  of  the  various  signals  which  are  used  in  the 
CPU  module  to  service  the  MC68030,  and  signals  which  are  used  to  interface  with 
external  devices  and  busses.  This  section  refers  to  schematics  which  are  found  in 
Appendix  A.  A  block  diagram  of  the  CPU  module  with  its  major  subsystems  is 
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shown  in  Figure  3.2. 


SCSIIRQ 

SIOIRQ 

!01RQ 

ARRAYIRQ 


Control,  Data,  Address  ROM,  I/O,  RAM.  Array 
Buses  Address  Space  Signals 


Figure  3.2:  Block  Diagram  of  CPU  Module 


3.2.1  Cache  Control 

The  MC68030  provides  a  mechanism  whereby  external  circuitry  may  indicate  to  the 
68030  which  addresses  are  cachable,  the  cache  inhibit  input,  CIIN*.  CIIN*  is  gener¬ 
ated  by  PALO  and  inhibits  the  cache  when  accessing  the  I/O  and  array  addressing 
spaces.  Additionally,  the  68030  provides  a  means  for  disabling  the  cache  from  ex¬ 
ternal  hardware,  primarily  for  debugging  purposes.  This  is  the  cache  disable  input, 
CDIS*.  CDIS"^  may  be  asserted  or  negated  using  switch  S3. 

The  primary  reason  for  the  selection  of  the  MC68030  as  the  control  proces¬ 
sor  of  the  InvestiGATOR  was  its  on-chip  instruction/data  cache  and  burst  cache 
fill  mechanism.  The  68030  provides  a  means  of  bursting  four  longwords  of  instruc- 
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tions  or  data  into  the  cache.  This  is  accomplished  using  the  MC68030’s  cache  burst 
request /acknowledge  (CBREQ*/CBACK*)  handshaking  protocol.  When  the  68030 
runs  a  bus  cycle  in  which  it  can  execute  a  burst  fill  of  the  cache  it  asserts  the  CBREQ* 
signal.  If  the  addressed  device  wishes  to  proceed  with  a  burst  fill  of  the  cache  it  must 
acknowledge  the  burst  request  with  CBACK*.  In  a  zero  wait  state  system  the  68030 
ran  read  four  longwords  in  eight  cycles  (ne.,  forty  megabytes  per  second)  using  stan¬ 
dard  bus  cycles  while  the  same  four  longwords  can  be  read  in  five  clock  cycles  (i.e., 
sixty-four  megabytes  per  second)  using  burst  mode.  There  is  support  for  burst  filling 
of  the  cache  from  the  RAM  module  only  (see  Table  3.2).  A  burst  acknowledge  on  the 
part  of  the  RAM  module  is  passed  through  a  D  flip-flop  clocked  180  degrees  out  of 
phase  with  the  20  MHz  system  clock  in  order  to  stretch  the  CBACK"'  signal. 

3.2.2  Interrupt  Control 

The  MC68030  provides  a  seven  level  prioritized  interrupt  mechanism  using  the  IPLO- 
V  signals.  PALI  provides  priority  encoding  of  the  various  interrupt  signals  generated 
in  the  InvestiGATOR.  The  majority  of  the  signals  are  provided  to  I/O  devices,  how¬ 
ever,  there  is  also  an  interrupt  line  reserved  for  the  array  bus.  The  prioritization  of 
the  interrupt  sources  is  given  below: 


Request  Priority 

Description 

7 

NMI  (Non-MaskableTnterrupt).  Reserved. 

6 

SCSI  Port. 

5 

Reserved. 

4 

SIO  port. 

3 

Reserved. 

2 

I/O  Bus. 

1 

Array  Bus. 

Table  3.1:  Interrupt  Priority  Levels 
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The  InvestiGATOR  uses  the  MC68030’s  interrupt  autovector  mechanism  to 
vector  interrupts.  This  is  accomplished  by  asserting  the  AVEC*  input  of  the  68030 
when  an  interrupt  acknowledge  cycle  is  executed.  AVEC*  is  generated  by  PALO  using 
a  clocked  output.  AVEC*  is  asserted  when  PALO  detects  an  interrupt  acknowledge 
cycle.  The  68030  also  provides  one  additional  signal  related  to  interrupts,  the  IPEND* 
(interrupt  pending  signal).  The  IP  END'*'  signal  is  not  used  by  the  InvestiGATOR. 


3.2.3  Address  Space  Decoding 

Address  space  decoding  is  provided  by  PALO.  PALO  decodes  four  primary  address 
spaces:  RAM  space,  ROM  space,  I/O  space,,  and  array  space.  These  address  space 
signals  are  address  strobe  qualified.  This  address  space  arrangement  consumes  sixty- 
four  megabytes  of  the  four  gigabyte  available  address  space,  however,  the  sixty-four 
megabyte  space  is  repeated  (be.,  A26-A31  are  ignored).  Accesses  to  memory  spaces 
besides  program  and  data  space  are  ignored  (with  the  exception  of  interrupt  acknowl¬ 
edge  cycles-which  run  in  CPU  space)  and  will  result  in  a  bus  fault  after  a  timeout. 
Address  space  decoding  is  summarized  in  Table  3.2. 


Address  Range 

Description 

c 

Oh— IFFFFh 

ROM  space. 

20000h— FFFFFh 

I/O  space. 

B,C 

lOOOOOh— FFFFFFh 

RAM  space. 

lOOOOOOh— 3FFFFFFh 

Array  space. 

C=cachable,  B=burst  cycle  support. 


Table  3.2:  Address  Space  Decoding 
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3.2.4  Bus  Cycle  Termination 

The  68030  provides  two  mechanisms  for  normal  termination  of  bus  cycles:  asyn¬ 
chronous  termination  and  synchronous  termination.  Both  means  of  termination  are 
supported  by  the  InvestiGATOR.  The  synchronous  termination  mechanism  is  a  high 
speed  termination  mechanism  for  use  with  thirty-two  bit  data  ports  only.  In  practice, 
only  the  RAM  space  and  array  space  use  synchronous  termination.  The  MC68030’s 
synchronous  termination  input,  STERM*  is  generated  by  taking  the  logical  OR  of 
the  two  possible  sources  of  synchronous  termination  requests,  and  then  using  a  D  flip- 
flop  clocked  180  degrees  out  of  phase  with  the  20  MHz  system  clock  to  stretch  the 
STERM*  signal,  see  Figure  3.3 


Figure  3.3:  STERM  Signal  Input  and  Conditioning 

The  asynchronous  bus  cycle  termination  mechanism  allows  for  dynamic  bus 
sizing  for  eight,  sixteen,  and  thirty-two  bit  ports.  The  asynchronous  termination 
signals,  DSACKO*  and  DSACKl*,  are  provided  by  PALIA  which  generates  the  ap- 
propnate  DSACKs  for  various  ports  (primarily  I/O). 

3.2.5  Abnormal  Bus  Cycle  Termination:  Bus  Error  Control 

It  is  possible  to  attempt  to  access  addresses  for  which  there  is  no  corresponding 
device.  In  this  event  it  is  necessary  for  external  circuitry  to  terminate  the  bus  cycle. 
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Additionally,  it  may  be  desirable  to  terminate  an  I/O  or  array  bus  cycle  with  an  error 
condition.  Bus  cycles  may  be  terminated  with  a  fault  condition  by  assertion  of  the 
MC68030’s  BERR*  signal.  Assertion  of  the  BERR*  signal  is  controlled  by  the  BERR 
control  state  machine,  located  on  MACH2.  This  state  machine  tracks  bus  cycles  and 
asserts  BERR*  when  the  I/O  or  axray  busses  request,  or  in  the  event  of  a  timeout, 
indicated  by  the  trickle  count  output  of  an  eight  bit  watchdog  timer  (counter).  A 
state  machine  diagram  is  given  in  Figure  B.l. 

3.2.6  Byte  Select  Signals 

The  CPU  module  provides  byte  select  signals  (UU*,  UM*,  LM*,  and  LL*)  to  external 
modules  by  decoding  the  AO,  Al,  SIZO,  and  SIZl  outputs  of  the  68030.  These  byte 
selects  are  decoded  by  PALIA  and  are  not  qualified  by  the  address  strobe. 

3.2.7  Miscellaneous  Signals 

The  InvestiGATOR  does  not  support  multiple  bus  mastering  in  the  controller  so  the 
BR*  (bus  request)  input  is  negated.  The  BG*  (bus  grant)  signal  is  ignored  and 
the  BGACK*  (bus  grant  acknowledge)  signal  is  negated.  The  MC68030’s  memory 
management  unit  may  be  disabled  using  the  MMUDIS*  input  to  the  68030.  Access 
to  this  signal  is  provided  using  switch  S4. 

3.3  Memory  Module 

This  section  describes  the  operation  of  the  RAM  and  ROM  modules.  The  RAM  ar¬ 
chitecture  is  based  upon  a  single  thirty-two  bit  wide  bank  of  70  ns  static  column  RAM 
(SCRAM)  with  a  capacity  of  one  megabyte.  The  SCRAM  controller  is  based  upon 
a  high  density  PLD,  the- AMD  Mach  110,  with  high  resolution  timing  generated  by 
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the  AMD  Ain297lA  programmable  event  generator  (PEG).  The  ROM  architecture 
is  based  upon  a  single  eight-bit  wide  bank  of  EPROM  with  a  capacity  of  128  kilo¬ 
bytes.  The  ROM  is  only  intended  for  SCSI  control  processor  diagnostic  and  operating 
code.  Time  critical  code  sections  are  moved  from  the  ROM  to  the  main  memory,  the 
SCRAM.  Microcode  and  data  may  be  loaded  from  the  host  after  boot.  In  situations 
where  the  InvestiCATOR  is  being  used  as  a  standalone  data  collection  unit  microcode 
might  be  loaded  from  a  non-volatile  semiconductor  disk  resident  on  the  1/ 0  bus. 

3.3.1  Static  Column  RAM 

The  InvestiCATOR  contains  a  one  megabyte  bank  of  SCRAM.  The  SCRAM  is  used 
as  an  alternative  to  standard  DRAM  because  of  its  high  speed  access  properties: 
sequential  accesses  to  the  same  column  proceed  substantially  faster  than  an  access  to 
the  same  speed  rated  standard  DRAM.  The  SCRAM  achieves  no-wait-state  operation 
when  operating  in  static  column  mode.  This  is  an  attractive  property  when  coupled 
with  the  68030’s  burst  mode  and  when  one  considers  that  the  primary  use  for  this 
bank  of  RAM  will  be  to  perform  SCSI  block  transfers. 

There  are  penalties  to  pay  for  the  high  performance  of  the  SCRAM;  SCRAM  is 
fifty  per  cent  to  one-hundred  per  cent  more  expensive  than  standard  DRAM,  SCRAM 
requires  significantly  more  control  logic  than  standard  DRAM,  and  in  the  event  of  a 
non-static  column  mode  access,  there  is  a  substantial  penalty  to  pay  in  cycling  a  new 
row  address.  However,  given  the  design  constraints,  the  static  column  axchitecture  is 
the  best  solution. 

The  SCRAM  architecture  is  composed  of  several  components.  There  is  the 
SCRAM  itself,  data  transceivers,  address  multiplexer,  address  comparator,  burst 
counter,  refresh  timer,  high-time  resolution  sequencer,  and  byte  select  decoder.  A 
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block  diagram  of  the  SCRAM  architecture  is  shown  in  Figure  3.4. 


Data 

Figure  3.4;  Block  Diagram  of  SCRAM  Architecture 

The  burst  counter  serves  to  cycle  the  two  lowest  order  bits  of  the  address 
during  burst  accesses.  For  example,  if  an  access  is  a  miss  in  the  68030’s  internal 
cache,  caching  is  allowed,  and  the  target  of  the  access  supports  burst  mode  accesses 
then  in  order  to  keep  latency  (from  the  execution  unit’s  point  of  view)  minimal  the 
required  word  is  read.  Then  the  next  longword  address,  modulo  four,  is  read,  and 
so  on  until  four  longwords  have  been  read.  The  burst  counter  is  integrated  onto  the 
PLD  which  contains  the  controller  state  machine. 

The  address  comparator  serves  to  allow  the  controller  to  determine  whether 
an  access  is  a  static  column  hit.  The  address  comparator  contains  both  a  register 
and  a  comparator  so  that  the  previous  row  address  can  be  stored  for  comparison  with 
future  accesses.  Note  that  refresh  cycles  do  not  invalidate  the  register  contents  of  the 
address  comparator.  Validity  of  the  contents  of  the  address  comparator  is  controlled 
by  the  state  of  the  RAS  signal:  the  contents  (and  thus  the  output)  of  the  address 
comparator  are  valid  if  and  only  if  RAS  is  asserted. 

The  refresh  counter  is  a  simple  eight  bit  counter  whose  trickle-count  output 


NAWCADWAR-95005-4.5 


25 

sets  a  refresh  request  to  the  controller  state  machine.  The  refresh  counter  issues  a 
refresh  request  256  cycles  (r=50  ns)  after  it  is  reset  for  a  net  of  one  request  every 
12. S  ms  resulting  in  each  of  the  512  rows  of  RAM  being  refreshed  every  6.6  ms, 
meeting  the  required  8  ms  refresh  cycle  period. 

The  controller  issues  commands  to  the  sequencer  to  perform  operations  on  the 
RAM.  The  sequencer  is  an  AMD  Am2971A  programmable  event  generator  (PEG) 
which  is  capable  of  generating  sequences  of  signals  with  10  ns  timing  resolution.  Some 
of  the  signals  are  routed  directly  to  their  targets  while  others  are  routed  through  a 
PLD  which  provides  byte  select  coding,  primarily  for  write  operations.  Additionally 
the  controller  handles  all  handshaking  with  the  CPU.  The  state  machine  must  handle 
a  number  of  conditions: 

•  Refresh  cycle 

•  Static  column  miss,  read  without  burst 

•  Static  column  miss,  read  with  burst 

•  Static  column  hit,  read  without  burst 

•  Static  column  hit,  read  with  burst 

•  Static  column  miss,  write 

•  Static  column  hit,  write 

Examining  the  controller  state  machine  diagram  (see  Figure  B.3)  we  see  that 
the  state  machine  implements  the  read  sequences  using  a  variety  of  shared  state 
sequences.  By  sharing  state  sequences  we  arrive  at  a  much  more  efficient  implemen¬ 
tation  of  the  controller  state  machine. 
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The  following  refers  to  Figure  3.5.  The  static  column  RAM  device  is  dependent 
upon  four  control  signals:  chip  select  (CS),  row  address  strobe  (RAS),  write  strobe 
(WR),  and  output  enable  (OE).  RAS,  WR,  and  OE  are  generated  by  the  PEG  and 
fed  directly  to  the  SCR.AM  devices  while  the  CS  signal  is  generated  by  the  PEG  it  is 
subject  to  byte  select  coding  by  PAL4  using  the  byte  select  signals  (UU,  UM,  LM,  LL) 
generated  by  the  CPU  module.  The  data  lines  are  buifered  using  four  Am29C861A 
CMOS  bus  transceivers  under  the  control  of  the  SCRAM  controller  state  machine. 


The  address  lines  are  multiplexed  by  a  pair  of  Am29C827A  bus  drivers  acting  as  a 
row/column  address  multiplexer  under  control  of  the  controller  via  the  PEG. 


Mach210 


nS 

c 

05 

CO 


p 


Figure  3.5:  SCRAM  Controller  Architecture 


The  refresh  counter  operates  in  a  free  counting  mode,  driven  by  the  20  MHz 
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system  clock.  Two-hundred  fifty-six  clock  cycles  (12.8  ms)  after  a  counter  reset 
the  trickle-count  output  (RCO)  is  asserted  for  one  clock  cycle  which  in  turn  sets  the 
refresh  re<^uest  SR  flip-flop  in  the  controller  state  machine  PLD.  After  the  completion 
of  the  current  memory  transaction  the  controller  resets  the  counter  and  the  refresh 
request  SR  flip-flop  via  the  CLRREF  signal  and  orders  the  PEG  to  execute  a  hidden 
refresh  cycle.  Under  worse  case  conditions  a  refresh  request  could  suffer  a  response 
latency  of  up  to  twelve  clock  cycles  (600  ns).  Thus,  under  these  worse  case  conditions 
a  hidden  refresh  cycle  might  be  executed  every  13.4  ms  implying  a  refresh  of  every 
row  of  the  SCRAM  every  6.9  ms,  still  within  the  required  8.0  ms. 

The  controller  handshakes  with  the  CPU  module  via  the  AS,  CBREQ,  RAMSP, 
Read/Write,  CBACK,  and  STERM  signals.  The  R/W,  AS  and  RAMSP  signals  are 
used  in  conjunction  with  additional  address  decoding  provided  by  PAL4  (via  the 
BANKSEL  signal  from  PAL4)  to  initiate  memory  transactions.  The  CBREQ/ CBACK 
handshaking  pair  is  used  to  control  burst  cycles. 

The  controller  orders  the  PEG  to  execute  sequences  using  the  PA2-0  and 
TRIGx  outputs.  The  PA2-0  signals  provide  an  address  to  the  PEG  to  determine 
the  starting  point  in  its  memory  for  execution  while  the  TRIGJ/TRIGK  outputs  are 
fed  through  a  negative-  edge  triggered  flip-flop  to  generate  a  trigger  signal  which  will 
arrive  at  a  time  when  the  PEG  address  inputs  (PA2-0)  are  guaranteed  valid  and  cause 
the  PEG  to  begin  execution  with  minimal  latency.  The  chip  select  signals  generated 
by  the  PEG  are  gated  using  the  byte  selects  generated  by  the  CPU  module  with 
controller  override  via  the  CSALL  signal.  The  PEG  also  generates  the  RAS,  WR, 
and  OE  signals  used  by  the  SCRAM.  Additionally,  the  PEG  controls  the  address 
multiplexer  via  the  AREG  signals  which  control  the  output  enables  of  the  address 


drivers. 
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The  address  comparator  is  a  combination  register/comparator.  The  controller 
causes  the  comparator  to  latch  a  new  row  address  using  the  CLKEN  signal.  When 
the  address,  comparator  determines  that  the  row  address  at  its  input  matches  that 
stored  in  its  internal  register  it  signals  the  controller  using  the  HSA  signal.  Finally, 
the  data  transceivers  are  controlled  by  the  OER  and  GET  controller  signals. 

The  burst  address  counter  is  integrated  into  the  controller  PLD.  This  counter 
is  a  simple  two-bit  counter  with  load  and  increment  controls  from  the  controller  state 
machine,  load  inputs  .A.11,0,  and  AOl,0.  Negation  of  the  load  or  latch  and  increment 
controls  implies  a  hold  state.  The  outputs  of  this  counter  are  fed  through  the  address 
multiplexer  to  the  SCRAM  array.  Note  that  since  the  least  significant  bits  of  the 
column  address  are  fed  through  the  burst  address  counter,  the  presentation  of  a  new 
column  address  to  the  SCRAM  array  is  limited  by  both  the  address  multiplexer  and 
the  speed  with  which  the  address  counter  can  latch  a  new  address  and  present  it  to 
the  address  multiplexer. 

The  SCRAM  must  be  verified  each  time  the  power  is  applied.  There  are 
standard  algorithmic  test  methods  which  facilitate  functional  testing  of  the  DRAM 
and  detection  of  common  faults  [6].  The  standard  test  methods  discussed  in  [6]  are 
targeted  primarily  at  functional  testing  of  DR.AMs  in  VLSI  testers,  not  testing  of 
the  memory  in  circuit.  These  methods  may  be  adapted  with  the  addition  of  tests 
to  exercise  the  surrounding  architecture.  In  pairticular,  during  testing  of  the  first 
InvestiG.A.TGR  board,  a  stuck-at  fault  (SAF)  was  discovered  in  one  of  the  address 
multiplexer  buffers.  A  test  to  find  SAFs  in  the  address  multiplexer  buffers  is  given 
in  Figure  3.6.  Cnee  the  address  multiplexers  are  verified  the  data  transceivers  should 
be  verified.  Note  that  malfunctioning  data  transceivers  could  potentially  mask  or 
simulate  an  address  multiplexer  SAF,  thus,  special  precaution  should  be  taken  in 
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the  implementation  of  the  address  multiplexer  SAF  detection  so  as  not  to  cause  an 
erroneous  conclusion  as  to  the  status  of  the  address  multiplexers. 


for  i=0  to  n-1 
M[0]  ;=0 
MC2“i]  :  =  1 

if  M[0] !=0  then  there  exists  an  SAO  fault  ®  bit  i 

MC0]:=1 

MC2''i]:=0 

if  MC2"i] !=1  then  there  exists  an  SAl  fault  @  bit  i 
end 


Figure  3.6:  Pseudo-Code  for  Address  Multiplexer  SA  Fault  Detection 

Once  the  status  of  the  surrounding  architecture  is  verified,  [6]  suggests  that 
tests  for  unlinked  SAFs,  unlinked  transition  faults  (TFs),  unlinked  coupling  faults 
(CFs),  linked  CFs,  linked  CFs  and  TFs,  address  decoder  faults  (AFs),  and  various 
pattern  sensitive  faults  (PSFs)  be  conducted.  It  turns  out  that  two  tests  will  provide 
fault  coverage  for  SAFs,  TFs,  AFs,  linked  CFs,  linked  TFs,  unlinked  idempotent,  and 
unlinked  inversion  CFs:  the  March  C  and  March  B  algorithms-. 

Each  march  element  of  a  march  sequence  consists  of  an  arrow  pointing  up  or 
down,  indicating  the  direction  of  march  in  address  space,  and  a  sequence  of  read  and 
write  operations.  For  example,  ft-  indicates  an  address  sequence  from  zero  to  n  -  1, 
while  IJ.  indicates  an  address  sequence  from  n  —  1  to  zero.  The  March  C  algorithm  is 
given  in  Figure  3.7.  The  March  B  algorithm  is  given  in  Figure  3.8.  Both  the  March  C 
and  March  B  algorithms  assume  that  an  initial  fl-(wO)  march  is  executed  to  initialize 
the  memory  before  the  test  algorithm  is  executed. 

The  most  common  PSFs  which  occur  are  neighborhood  pattern  sensitive  faults 
(NPSFs).  NPSFs  are  faults  where  the  writing  of  memory  cells  adjacent  to  a  base  cell 
will  cause  an  unwanted  transition  in  the  base  cell.  The  cells  most  likely  to  effect  a 
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{  1]'(r,wl);  fr(r,wO);  ^(r);  ^(r,wl);  ^(r,w0);  |l(r);  } 


Figure  3.7:  March  C  Algorithm  for  Memory  Testing 


{  T(r,wl,r,wO,r,wl);  fl'(r,w0,wl);  U.(r,w0,wl,w0);  lj.(r,wl,w0);  } 


Figure  3.8:  March  B  Algorithm  for  Memory  Testing 

base  cell  -  and  thus  expose  an  NPSF  -  are  the  four  cells  adjacent  to  the  base  cell 
in  the  north,  south,  east,  and  west  directions.  A  basic  NPSF  detection  algorithm, 
suggested  by  [6]  is  given  in  Figure  3.9. 


write  all  base  cells  with  zero; 
for  each  base  cell 
apply  a  pattern; 

read  base  cell  and  compare  against  expected  value  (zero) ; 
end; 

write  all  base  cells  with  one; 
for  each  base  cell 
apply  a  pattern; 

read  base  cell  and  compare  against  expected  value  -(one) ; 
end; 


Figure  3.9:  A  Basic  NPSF  Detection  Algorithm 


3.3.2  ROM  Controller  and  Architecture 

The  InvestiGATOR  contains  a  single  bank  of  128K  x  8-bit  wide  (128  kilobytes) 
EPROM.  This  ROM  is  a  low  performance  memory  which  contains  basic  firmware 
for  the  InvestiGATOR  and  may  contain  some  firmware  for  the  array  under  test. 
ROM  read  cycles  are  executed  in  three  clock  cycles  yielding  a  net  bandwidth  of 
6.67  megabytes  per  second.  Code  segments  demanding  higher  performance  may  be 
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shadowed  to  the  RAM  space. 

3.4  I/O  Bus  and  Devices 

The  InvestiGATOR  supports  an  I/O  bus  through  which  it  communicates  with  the  out¬ 
side  world.  Currently  the  I/O  bus  contains  a  SCSI  controller,  and  a  serial  (RS-232C) 
port.  The  SCSI  controller  utilizes  the  Western  Digital  33C93A  SCSI  bus  controller 
chip  and  contains  a  thirty-two  kilobyte  data  buffer.  The  serial  1/ 0  controller  uses  the 
AMD  Z85C30  ESCC  (Enhanced  Serial  Communications  Controller)  to  provide  two 
channels  of  RS-232  I/O.  Allowances  are  made  for  the  addition  of  peripherals  to  the  In- 
vestiCATOR’s  I/O  bus.  Some  of  the  allowances  include  a  wired-OR  interrupt  request 
line  and  three  data  transfer  acknowledge  lines:  one  for  each  size  data  port  supported 
by  the  MC68030.  The  accessibility  of  the  I/O  bus  is  intended  to  compensate  for  the 
potential  unavailability  or  unsuitability  of  a  SCSI  bus  equivalent  peripheral. 

3.4.1  SCSI 

The  SCSI  port  is  built  around  the  Western  Digital  33C93A  SBIC  (SCSI  Bus  Interface 
Chip).  The  SCSI  port  is  designed  to  use  a  form  of  I/O  called  DBA  (direct  buffer 
access  )  for  data  block  transfers.  Using  DBA,  the  SBIC  performs  block  transfers 
directly  to  and  from  a  thirty-two  kilobyte  local  buffer  memory  without  processor 
intervention.  This  allows  the  SBIC  to  achieve  its  rated  five  megabyte/second  data 
transfer  rates  and  allows  the  control  processor  to  avoid  the  performance  penalties 
associated  with  interrupt  servicing  overhead.  A  block  diagram  of  the  SCSI  port 
architecture  is  depicted  in  Figure  3.10. 

The  SBIC  operates  in  two  modes  during  normal  operation  in  the  InvestiGA¬ 
TOR:  direct  addressing  mode  and  DBA  mode.  In  the  direct  addressing  mode  the 
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Figure  3.10:  Block  Diagram  of  the  SCSI  Port 

processor  performs  transactions  with  the  SBIC  by  using  hardware  assisted  time  mul¬ 
tiplexing  of  the  address  and  data  to  the  SBIC  address/data  port.  Direct  addressing 
mode  contrasts  with  indirect  addressing  mode  where  the  processor  first  would  write 
an  address  to  the  SBIC  and  then  the  next  SBIC  access  would  be  performed  on  the 
register  whose  address  was  written  in  the  previous  cycle.  Indirect  addressing  mode 
carries  obvious  penalties  since  two  real  accesses  are  required  for  every  data  transac¬ 
tion.  The  SBIC  normally  is  kept  in  a  DBA  stand-by  mode:  that  is,  whenever  the 
processor  is  not  accessing  the  SBIC  or  RAM  buffer  the  SBIC  is  in  DB.4  mode.  When 
the  processor  attempts  to  perform  a  transaction  with  the  SBIC  or  RAM  the  SBIC  is 
switched  out  of  DBA  mode  so  that  the  transaction  may  proceed. 

In  DBA  mode  the  SBIC  has  control  of  the  RAM  buffer.  Reads  and  writes 
are  accomplished  using  the  SBIC  read  enable  and  write  enable  signals.  Since  the 
SBIC  has  no  means  of  handshaking  with  external  logic  when  performing  individual 
transactions  with  the  buffer  RAM,  it  is  up  to  the  control  architecture  to  ensure 
that  the  transaction  meets  the  SBIC’s  timing  requirements.  Additionally,  the  SBIC 
provides  no  direct  control  of  the  address  counter;  rather,  the  control  of  the  counter  is 
implicit.  After  each  buffer  read  or  write  operation,  the  counter  must  be  incremented 
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by  the  external  hardware.  The  control  logic  determines  when  to  increment  the  counter 
by  observing  the  read  and  write  strobes.  Address  counter  control  in  DBA  mode  is 
performed  by  observing  the  RE  and  WE  strobes  which  are  controlled  by  the  SBIC  in 
this  mode. 

The  SCSI-2  specification  gives  a  list  of  commands  which  a  processor  on  the 
SCSI  bus  can  implement.  Some  of  the  commands  listed  are  optional  while  others  are 
mandatory  under  the  SCST2  specification.  A  table  of  these  commands  and  whether 
the  InvestiGATOR  responds  to  the  commands  is  given  in  Table  3.3. 


Command  Name 

Notes 

0 

Change  Description 

Not  Implemented. 

0 

Compare 

Not  Implemented. 

0 

Copy 

Not  Implemented. 

0 

Copy  and  Verify 

Not  Implemented. 

M 

Inquiry 

0 

Log  Select 

0 

Log  Sense 

0 

Read  Buffer 

Used  to  read  program  memory  and  control 
store. 

0 

Receive 

Used  to  transmit  command  and  data  packets 
to  InvestiGATOR. 

0 

Receive  Diagnostic  Results 

Used  to  retrieve  diagnostic  results. 

M 

Request  Sense 

M 

Send  ' 

Used  to  receive  command  and  data  packets 
from  InvestiGATOR. 

M 

Send  Diagnostic 

Used  to  request  diagnostics  to  be  performed. 

M 

Test  Unit  Ready 

0 

Write  Buffer 

Used  to  load  program  memory  and  control 
store. 

O=optional,  M=mandatory,  according  to  SCST2  definition. 


Table  3.3:  SCSI-2  Command  Set 
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3.4.2  SIO 

The  serial  1/ 0  interface  is  provided  for  software  development  and  diagnostic  purposes. 
The  serial  controller  is  based  upon  an  AMD  Z85C30  Enhanced  Serial  Communications 
Controller  (ESCC).  The  ESCC-I/0  bus  interface  is  composed  simply  of  an  eight-bit 
buffer  and  a  PAL-based  controller. 

The  ESCC  supports  two  channels  of  serial  communications  and  independent 
baud  rate  generation.  Two  channels  of  serial  I/O  are  supported  by  the  InvestiGATOR 
since  the  additional  cost  is  minimal.  In  the  case  of  the  InvestiGATOR  the  baud  rate 
is  generated  by  dividing  down  the  10  MHz  system  clock  to  the  appropriate  baud  rate. 
The  baud  rate  is  programmed  by  providing  a  time  constant  for  each  channel.  The 
time  constants  appropriate  to  some  common  baud  rates  assuming  /c£,/\=10  MHz, 
and  a  clock  multiplier  of  sixteen  are  provided  in  Table  3.4. 


Desired  Baud 

Time  Constant 

Actual  Baud 

Per  Cent  Difference 

300 

1044 

299.904 

-0.032 

1200 

262 

1201.92 

0.159 

2400 

132 

2403.85 

0.158 

.  4800 

67 

4807.69 

0.155 

9600 

35 

9469.70 

-1.296 

19200 

18 

19531.3 

1.510 

Table  3.4:  Time  Constants  versus  Baud  Rates  for  Enhanced  Serial  Communication 
Controller 


The  ESCC’s  registers  are  mapped  in  I/O  space  as  described  in  Table  3.5. 

The  serial  ports  are  brought  out  to  DB9  connectors  on  the  back  of  the  In¬ 
vestiGATOR.  The  signals  are  translated  via  the  RS-232C  level  compatible  MC1448 
transmitter  and  MC1449  receiver.  This  transmitter/receiver  pair  was  chosen  for  its 
robustness.  The  pinout  of  the  InvestiGATOR’s  serial  ports  is  non-standard  and  de- 
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Address 

Description 

20800h 

Channel  B  Control  Register. 

20801h 

Channel  B  Data  Register. 

20802h 

Channel  A  Control  Register. 

20803h 

Channel  A  Data  Register. 

Table  3.5:  Enhanced  Serial  Communication  Controller  Register  Memory  Map 


picted  below  in  Figure  3.11. 
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Figure  3.11:  InvestiGATOR  Serial  Port  Pinout 

A  cable  suitable  for  connecting  the  InvestiGATOR  to  an  IBM  PS/2  host 
was  constructed  according  to  the  diagram  in  Figure  3.12.  The  cable  is  suitable  for 
XON/XOFF  flow-control  protocol  and  is  not  suitable  for  hardwire  (he.,  REQ/ACK 
or  RTS/CTS)  protocols.  Note  that  the  InvestiGATOR  end  of  the  cable  does  not 
have  the  usual  data  set  ready  (DSR)  and  ring  indicator  (RI)  inputs.  Furthermore, 
the  InvestiGATOR  does  not  offer  a  protective  ground  (PGND)  input.  The  protective 
ground  wire  from  the  terminal  side  of  the  cable  should  be  connected  and  provide 
grounding  for  the  cable  shielding.  However,  the  signal  ground  (SGND)  is  connected. 


3.5  I/O  Expansion 

The  I/O  expansion  connector  is  intended  to  allow  unforeseen  problems  to  be  ad¬ 
dressed.  The  I/O  expansion  connector  is  mapped  to  the  to  I/O  address  space  and 
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Figure  3.12:  InvestiGATOR  to  IBM  PS/2  Serial  Cable 


may  be  used  with  eight,  sixteen,  and  thirty-two  bit  data  bus  sizes.  Wired-OR  lines 
are  provided  for  asynchronous  bus  cycle  termination  and  interrupts.  The  port  is  fully 
buffered  and  the  address  lines  and  control  lines  are  always  turned  on,  thus  allowing 
the  I/O  expansion  connector  to  be  used  to  probe  system  activity.  A  list  of  signal 
names,  pin  numbers,  and  description  of  the  signals’  functions  are  given  in  Table  3.6. 


Pin  Number 

Signal  Name 

Description 

0—31 

D.31-0 

Data  bus. 

32—51 

A19-0 

Address  bus. 

52 

AS* 

Address  strobe. 

53 

DS* 

Data  strobe. 

54 

lOSP* 

I/O  address  space  flag. 

55 

lOSDTACK* 

Eight  bit  port  DTACK. 

56 

I016DTACK* 

Sixteen  bit  port  DTACK. 

57 

I032DTACK* 

Thirty-two  bit  port  DTACK. 

5S 

lOIRQ* 

I/O  expansion  port  IRQ  line. 

Table  3.6:  I/O  Expansion  Connector  Signals 
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3.6  Array  Bus 

The  array  bus  is  a  connection  rich  environment.  Previous  experience  and  analysis 
has  led  to  the  conclusion  that  interboard  connectivity  was  lacking  in  traditional  host 
environments  such  as  the  PC-XT,  PC- AT,  EISA,  MicroChannel,  VME,  and  others. 

The  InvestiGATOR  has  a  324  signal  connector.  Seventy-five  of  the  signals 
oh  this  bus  are  allocated  for  a  memory  mapped  interface  to  the  MC68030  SCSI 
control  processor.  These  signals  are  fixed  in  terms  of  arrangement  and  function.  The 
remaining  signals  are  broken  up  between  near-neighbor  connections  and  broadcast 
connections  which  are  functionally  undedicated  a  priori.  One-hundred  forty  of  these 
signals  are  wired  as  near-neighbor  connections  where  seventy  of  the  signals  go  to 
the  right  adjacent  slot  and  the  remaining  seventy  go  to  the  left  adjacent  slot.  The 
remaining  one-hundred  nine  signals  are  wired  as  a  broadcast  bus  to  the  array.  All 
of  the  near-neighbor  connections  are  array  broadcast  connections  are  invisible  to  the 
MC68030  CPU.  -A  breakdown  of  the  allocation  of  these  signals  is  listed  in  Table  3.7. 

3.6.1  CPU  to  Array  Bus  Interface  and  Architecture 

The  CPU  is  interfaced  to  the  array  bus  via  a  memory  mapped  interface  using  a  total 
of  seventy-five  signal  lines  on  the  backplane  connector.  The  interface  to  the  array 
bus  buffers  the  CPU  signals  and  passes  all  signals  necessary  for  data  and  instruction 
transactions  to  take  place.  A  breakdown  of  the  allocation  of  these  signals  is  listed  in 
Table  3.7. 

This  interface  does  not  support  alternate  address  spaces  via  the  68030’s  func¬ 
tion  code  (FCx)  outputs,  dynamic  bus  sizing  (z.e.,  all  ports  are  thirty-two  bits),  nor 
does  it  support  burst  mode  accesses.  Each  slot  has  its  own  STERM  signal  which  is 
routed  to  the  CPU  by  the  interface.  STERM  validity  is  ascertained  by  observation 
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of  the  SLOTENx  signals.  Each  slot  has  a  wired-OR  SLOTEN  (active-low)  signal 
which  is  held  high  if  a  card  is  not  present  in  a  slot.  If  a  card  is  present  and  needs 
to  be  able  to  assert  STERM  then  it  must  assert  the  SLOTENx  signal  by  wiring  the 
signal  directly  to  ground.  The  STERMx  and  SLOTENx  signals  are  unique  at  each 
connector  and  are  hidden  from  the  other  slots. 

The  array  bus  error  (ARYBERR)  and  interrupt  request  (ARYIRQ)  signals 
are  wired-OR.  ARYBERR  causes  a  BERR  cycle  to  be  executed  by  the  68030,  while 
ARYIRQ  requests  a  level  one  priority  68030  IRQ. 


3.'6.2  Local  (Near-Neighbor)  Connections 

The  local  slot  connections  consist  of  seventy  signal  lines  to  each  adjacent  slot.  W.hile 
these  connections  are  not  predefined,  they  are  adequate  to  implement  a  sixty-four  bit, 
bidirectional  communication  port  or  a  pair  of  thirty-two  bit  unidirectional  ports  to 
each  adjacent  slot.  These  signals  are  unused  in  the  Gauss  machine  implementation, 
but  will  be  used  in  a  future  TMS320C40  hypercube  implementation. 


3.6.3  Array  Broadcast  Bus 

The  array  broadcast  bus  consists  of  the  remaining  109  signal  lines  not  used  in  the  near- 
neighbor  connections  or  the  CPU- array  interface.  Like  the  near- neighbor  connections, 
the  broadcast  connections  are  not  defined  a  'priori.  These  connections  are  intended 
to  handle  control  and  data  distribution.  The  assignment  of  these  signals  for  the  Gauss 
machine  is  discussed  in  Section  6.2. 
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3.7  Support  Circuitry 

This  section  describes  the  miscellaneous  modules  that  provide  the  critical  support 
functions  which  a^e  not  a  proper  part  of  any  of  the  major  modules  of  the  architecture. 


3.7.1  Clock  Generator  Module 

The  clock  generator  module  consists  of  three  components:  the  crystal  time  base, 
the  clock  generator,  and  a  low-skew  buffer.  The  crystal  timebase  is  a  40  MHz  TTL 
compatible  clock.  This  clock  drives  an  AMD  Am2971A  PEG  (Programmable  Event 
Generator)  which  produces  phase  locked  versions  of  2  MHz,  5  MHz,  10  MHz,  and 
20  MHz  clocks.  Finally,  since  the  PEG  has  a  relatively  low  power  output  drive,  the 
clock  signals  are  buffered  by  an  AMD  Am29C827A  high-speed  CMOS  bus  driver.  The 
Am29CS27A  features  low  low  skew,  and  “edge-rate  control”  which  is  intended 
to  minimize  ground  bounce. 

The  clock  module  produces  one  copy  each  of  the  2  MHz  and  5  MHz  clocks,  two 
copies  of  the  10  MHz  clock,  and  six  copies  of  the  20  MHz  clock;  The  various  copies  of 
the  20  MHz  clock  are  reserved  for  distribution  to  different  modules,  with  the  intent  of 
minimizing  clock  skew  within  each  module.  The  clock  distribution  reservation  table 
is  shown  in  Table  3.8. 

3.7.2  Reset  Circuit  Module 

The  reset  circuit  module  contains  power-up  and  on  demand  system  reset  circuitry. 
Power-up  reset  is  provided  by  a  Texas  Instruments  TL7705.A  Power  Supply  Supervi¬ 
sor/Reset  Generator.  The  power-up  reset  circuit  monitors  system  power  and  asserts 
the  RESET  signal  for  an  amount  of  time  controlled  by  Cl.  Cl  has  been  chosen  to 
be  greater  than  40/zF,  thus,  RESET  will  be  asserted  for  at  least  500  ms  after  the  5V 
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supply  rail  reaches  within  ten  per  cent  of  5V. 

The  reset  signal  provided  by  the  TL7705A  is  buffered  into  the  wired-OR  sys¬ 
tem  RESET*  signal  by  an  open- collector  inverter.  The  reset  circuit  contains  a  reset 
switch  connected  to  the  system  RESET*  signal. 
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Pin  Number 

Signal  Name 

Description 

1 

SLOTENx* 

Slot  enable.  Wired-OR. 

2 

STERMx* 

Synchronous  bus  cycle  termination. 

3 

ARYDS* 

Data  strobe. 

4 

ARYAS* 

Address  strobe. 

5 

ARYR/W 

Read/ write  strobe. 

6 

ARYUU* 

Upper  byte  select. 

7 

ARYUM* 

Upper-middle  byte  select. 

8 

ARYLM^" 

Lower- middle  byte  select. 

9 

ARYLL* 

Lower  byte  select. 

10 

ARYARYSP* 

Array  address  space  select. 

11 

ARYRMC* 

Read-modify-write  signal. 

12 

RESET* 

System  reset. 

13 

HALT* 

System  halt. 

14—45 

D31-0 

Data  bus. 

46—75 

A29-0 

Address  bus. 

79 

CLK20C 

20  MHz  system  clock. 

81 

CLKIOB 

10  MHz  system  clock. 

83 

CLK5 

5  MHz  system  clock. 

85 

CLK2 

2.5  MHz  system  clock. 

( 82, 84, 87 

Vcc 

5  V  power  bus. 

76,78,80,86 

GND 

Ground  rail. 

88—? 

Near  neighbor  connections. 

Odd  pin  numbers  to  left  slot. 

Even  pin  numbers  to  right  slot. 

?— 324 

— 

Broadcast  bus. 

Table  3.7:  Array  Bus  Signals 
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Signal 

Frequency 

Reservation/ Availability 

CLK2 

2  MHz 

Unallocated 

CLK5 

5  MHz 

Unallocated 

CLKlOa 

10  MHz 

I/O  module 

CLKlOb 

10  MHz 

Array  module 

CLK20a 

20  MHz 

CPU  module 

CLK20b 

20  MHz 

I/O  module 

CLK20c 

20  MHz 

Array  module 

CLK20d 

20  MHz 

RAM  module 

CLK20e 

20  MHz 

ROM  module 

CLK20f 

20  MHz 

Unallocated 

Table  3.8:  Clock  Reservation 
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SOFTWARE 


The  InvestiGATOR’s  firmware  is  written  primarily  in  C.  Besides  being  readily 
available  for  the  68030  architecture,  the  C  language  offers  high  level  language  ben¬ 
efits  of  compactness  and  ease  of  use  combined  with  some  of  the  benefits  associated 
with  assembly  language,  mainly  control  and  speed.  The  InvestiGATOR  firmware  is 
modular  in  nature,  composed  of  a  kernel,  SCSI  bus  interface  (SBIC)  firmware,  serial 
I/O  (SIO)  firmware,  and  interface  code  to  the  rarget  processor,  the  Gauss  machine. 
A  block  diagram  of  the  software  architecture  is  shown  in  Figure  4.1. 


Figure  4.1:  InvestiGATOR  Software  Architecture  Block  Diagram 


4.1  Kernel 


The  primary  mission  of  the  kernel  is  to  manage  resources  and  control  dispatch  of 
tasks  to  the  various  subsystems.  The  key  resource  which  is  managed  by  the  ker¬ 
nel  is  memory.  The  kernel  also  manages  the  dispatch  of  interrupts  to  the  various 
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subsystems. 

4.2  SBIC  Firmware 

The  SBIG  firmware  is  responsible  for  managing  the  substantial  SCSI  protocol.  The 
following  sections  introduce  the  operation  of  the  SCSI  bus  and  the  structure  of  the 
SBIC  firmware. 

4.2.1  SCSI  Bus  Operation 

The  SCSI  bus  has  four  phases  of  operation.  The  SCSI  bus  idles  in  the  bus  free 
phase.  When  a  device  wants  to  gain  control  of  the  bus,  the  bus  enters  the  arbitra¬ 
tion  phase.  During  the  arbitration  phase  all  devices  attempting  to  gain  control  over 
the  bus  arbitrate  for  the  bus.  The  device  with  the  highest  SCSI  ID  wins  the  arbi¬ 
tration.  After  successful  arbitration  the  bus  enters  the  selection  phase.  During  the 
selection  phase  the  SCSI  bus  master  attempts  to  select  the  device  with  which  it  wants 
to  communicate.  After  successful  selection  the  bus  enters  the  information  transfer 
phase.  The  information  transfer  phase  is  characterized  by  the  transfer  of  commands, 
data  packets,  and  messages.  A  flow  diagram  of  the  SCSI  phases  is  shown  below  in 
Figure  4.2. 

There  are  two  types  of  devices  on  the  SCSI  bus:  initiators  and  targets.  Initia¬ 
tors  are  typically  host  processors  while  targets  are  typically  peripheral  devices  such  as 
disk  drives.  The  InvestiGATOR  operates  as  a  target.  The  InvestiGATOR  responds 
to  the  commands  test  unit  ready,  request  sense,  send  and  receive.  These  operation 
of  the  these  commands  are  shown  in  Figures  4.3-4. 6. 

The  test  unit  ready  command  is  used  to  query  the  target  device  as  to  its 
status.  This  command  is  mandated  by  the  SCSI  standard.  The  InvestiGATOR  will 


NAWCADWAR-95005-4.5 


Reset  J 


_  1 

r 

rK 

Bus  Free  Phase 

i.  Ai. 

_ 1 

Arbitration  Phase 

_ 3 

r 

Selection  Phase 

_ _ 1 

r 

Information 
Transfer  Phase 

45 


Figure  4.2:  SCSI  Bus  Phases 

respond  with  a  good,  check  condition,  or  busy  status  code.  The  good  status  code 
indicates  that  the  InvestiGATOR  is  ready  and  standing  by  for  a  command.  The 
check  condition  status  code  indicates  that  the  InvestiGATOR  is  not  ready  and  has 
additional  status  information  available.  Finally,  the  busy  status  code  indicates  that 
the  InvestiGATOR  is  busy.  The  transactions  required  to  execute  a  test  unit  ready 
command  are  shown  in  Figure  4.3. 


Initiator  (Host)  Target  (InvestiGATOR) 


Figure  4.3:  Test  Unit  Ready  Command  Operation 


The  request  sense  command  is  used  to  query  the  device  for  extended  status 
data.  Typically,  the  request  sense  command  is  executed  after  a  check  condition  status 
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is  returned  on  a  command.  The  transaction  model  for  the  request  sense  command  is 
shown  in  Figure  4.4. 


Initiator  (Host) 


Target  (InvestiGATOR) 


Figure  4.4:  Request  Sense  Command  Operation 


The  send  and  receive  commands  are  the  primary  data  communication  com¬ 
mands  between  a  host  processor  and  the  InvestiGATOR.  The  transaction  models  for 
the  send  and  receive  commands  are  shown  in  Figure  4.5  and  Figure  4.6. 


Initiator  (Host) 


Target  (InvestiGATOR) 


Figure  4.5:  Send  Command  Operation 
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Initiator  (Host)  Target  (InvestiGATOR) 


Figure  4.6:  Receive  Command  Operation 


4.2.2  SBIC  Firmware 

The  SBIC  operates  under  an  interrupt  driven  protocol.  This  subsection  discusses 
the  flow  diagram  of  the  SBIC  reset  routine  and  the  interrupt  service  routine  (ISR) 
depicted  in  the  flow  diagram  of  Figure  4.7. 

Before  the  SBIC  can  be  used,  it  must  be  initialized  via  a  software  interrupt. 
The  SBIC  is  preloaded  with  the  SCSI  address  of  the  InvestiGATOR  before  a  software 
reset  is  executed.  After  the  reset  completes,  interrupts  and  data  I/O  modes  are 
programmed.  Initially,  the  InvestiGATOR  is  set  to  SCSI  address  4  and  uses  interrupt 
drive  I/O. 

The  InvestiGATOR  operates  only  a5  a  target  in  the  initial  configuration.  The 
InvestiGATOR  does  not  support  disconnect /reselection  at  this  time  so  the  firmware 
is  fairly  simple.  The  SBIC  interrupts  the  processor  with  a  service  required  interrupt 
when  an  initiator  on  the  SCSI  bus  selects  the  InvestiGATOR.  Selection  may  occur 
either  with  the  attention  (.4TN)  signal  asserted  or  negated:  ATN  asserted  indicates 
that  there  is  a  message  pending.  Selection  with  attention  is  used  exclusively  to 
request  that  the  target  accept  an  IDENTIFY  message.  The  InvestiGATOR  does  not 
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currently  support  the  IDENTIFY  message,  and  thus  selection  with  attention  leads 
to  a  fault  condition. 

After  the  SBIC  ISR  identifies  a  selection  without  attention  condition,  the 
ISR  prepares  the  SBIC  to  receive  a  command  from  the  initiator.  Currently  the 
InvestiGATOR  only  supports  a  SCSI  command  set  which  is  (coincidently)  limitted 
to  those  commands  which  have  six  byte  command  frames.  Thus,  a  transfer  count  of 
six  is  loaded  into  the  transfer  count  register  and  a  RECEIVE  COMM.A.ND  command 
is  issued  to  the  SBIC.  The  SBIC  then  receives  a  command  from  the  initiator. 

If  a  data  phase  is  required  by  the  command  received  from  the  initiator  then 
the  SBIC  is  prepared  for  a  data  phase  by  setting  the  synchronous  transfer  control 
register  and  the  transfer  counter  register  and  issuing  a  send  or  receive  data  command. 

If  the  command  received  was  a  linked  command  then  a  SEND  STATUS  com¬ 
mand  is  issued  to  the  SBIC  and  the  execution  returns  to  the  RECEIVE  COMMAND 
phase.  If  the  command  was  not  a  linked  command  then  a  SEND  STATUS  AND 
COMMAND  COMPLETE  command  is  issued  to  the  SBIC,  causing  the  last  com¬ 
mand’s  status  to  be  transmitted  to  the  initiator  and  the  SBIC  to  disconnect. 

4.-3  SIO  Firmware 

The  serial  port  is  operated  in  an  interrupt  driven  I/O  mode.  The  SIO  drivers  sup¬ 
port  circular  transmit/receive  buffers  which  aid  in  increasing  system  throughput  and 
allowing  type- ahead.  The  XON/XOFF  flow  control  protocol  is  the  only  flow  control 
protocol  currently  supported.  In  the  current  implementation  serial  port  A  is  the 
console  (stdin/stdout)  while  serial  port  B  is  unassigned. 
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Chapter  5 
INTRODUCTION 

The  Gauss  machine  is  a  2  x  2  systolic  array  processor  comprised  of  three 
seven-bit  GEQRNS  channels  for  a  total  of  six  seven-bit  RNS  channels.  The  array 
of  processors  is  arranged  in  a  mesh-connected  topology  with  unidirectional  dataflow. 
Alternately,  the  Gauss  machine  may  be  configured  to  utilize  two  of  its  processors  as 
a  vector  processor.  The  Gauss  machine  excels  in  computation  of  level  3,  level  2,  and 
level  1  operations. 

5.1  Motivation 

The  design  of  the  Gauss  machine  is  motivated  by  several  factors.  There  exists  a 
need  for  high-performance  front-end  signal  processors  which  are  reliable,  small,  con¬ 
sume  minimal  power,  and  are  relatively  inexpensive.  Typically,  high  performance  is 
achieved  using  a  combination  of  fast  processors  coupled  with  some  parallelism.  Sig¬ 
nal  processing  applications  have  been  demonstrated  to  be  particularly  amenable  to 
systolic  array  implementations[7].  Traditional  technologies  have  typically  featured 
large,  multiple  package  designs  where  individual  processors  were  made  up  of  several 
large  VLSI  devices [8].  Even  new,  state-of-the-art  processors  designed  for  parallel 
processing,  but  based  on  conventional  arithmetic  technology  such  as  the  i Warp [9]  or 
TMS320C40[10]  have  at  least  one  large  package  per  processor  element.  These  designs 
typically  had  large  physical  form  factors,  high  power  consumption  (multiple  watts 
per  processor),  and  low  reliability.  Attempts  to  improve  reliability  by  incorporat- 
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ing  redundancy  typically  result  in  little  improvement  at  the  expense  of  greater  than 
one-hundred  per  cent  in  terms  of  hardware,  power,  size,  and  cost. 

Processor  architectures  based  upon  residue  arithmetic  are  uniquely  qualified 
to  meet  the  demanding  needs  of  modern  signal  processing  systems.  The  RNS  is  a  high 
performance  system  of  arithmetic  having  performance  which  is  independent  of  word- 
width.  The  RNS  features  relatively  small  die  area  when  compared  with  conventional 
arithmetic.  The  RNS  is  inherently  fault  and  defect  tolerant[3,  4],  and  may  realize  the 
full  potential  of  VLSI  systolic  arrays[7]. 

5.2  Design  Parameters 

Currently,  there  are  no  RNS  systems  which  aj:e  general  purpose  in  nature.  Most  RNS 
systems  are  hard- wired  to  a  specific  task.  There  exists  a  need  to  demonstrate  an  RNS 
system  which  is  more  general  purpose  in  nature.  This  RNS  system  must  be  capable 
of  many  different  operations.  Additionally,  there  is  motivation  to  demonstrate  the 
use  of  the  RNS  in  systolic  array  architectures. 

The  Gauss  machine  is  designed  as  a  discrete  prototype  of  a  2  x  2  x  6  VLSI 
systolic  array  of  GEQRNS  multiplier- accumulators.  The  array  is  hosted  by  the  In- 
vestiGATOR  array  processor  testbed.  Data  conversion  functions  are  provided  by  the 
InvestiGATOR.  The  array  controller  is  a  microprogrammed  controller  based  upon  a 
single  chip  microsequencer. 
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Chapter  6 

IMPLEMENTATION 

6.1  Architecture 


The  Gauss  machine  supports  a  three  channel  GEQRNS  or  QRNS,  2x2  array  of  seven 
bit  multiplier- accumulators.  The  array  is  formed  by  six  boards,  with  each  board 
comprising  a  2  x  2  array  seven  bit  multiplier-accumulators.  The  array  is  integrated 
into  the  InvestiGATOR  array  processor  backplane  with  the  addition  of  a  controller, 
and  optionally,  a  forward- conversion  and  CRT  engine  board. 

The  Gauss  machine  supports  a  mesh  connected  geometry  with  north  and  east 
flow  of  data.  The  array  uses  FIFOs  to  provide  the  means  for  data  to  be  sequenced 
through  the  array.  The  FIFOs  are  the  gateway  through  which  the  array  communicates 
with  the  outside  world.  Additionally,  the  Gauss  machine  offers  a  vector  mode  of 
operation  which  utilizes  PEs  (1,1)  and  (1,2)  to  perform  level  1  and  level  2  operations 
at  higher  performance  levels  than  would  be  possible  using  the  full  array.  A  block 
diagram  is  given  below  in  Figure  6.1. 

The  FIFOs  located  on  the  periphery  of  the  array  meet  the  goal  of  allowing 
concurrency  in  processing  and  data  I/O  since  the  memories  may  be  loaded  or  emptied 
as  calculations  proceed. 
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Figure  6.1;  Block  Diagram  of  Gauss  Machine  Array 
6.2  Processor  Implementation 

Each  processor  element  in  the  array  (see  Figure  6.1)  consists  of  a  multiplier,  accumu¬ 
lator,  and  support  architecture.  The  inputs  to  the  multiplier  come  from  the  X-bus 
and  Y-bus.  The  X-bus  is  also  connected  to  the  F-bus,  allowing  the  accumulator  to  be 
pre-loaded,  or  the  output  of  the  adder  may  be  output  to  the  X-bus.  .A.  block  diagram 
of  the  processor  element  is  depicted  below  in  Figure  6.2. 


Figure  6.2:  Block  Diagram  of  Gauss  Machine  Processor  Element 

The  arithmetic  units  in  this  discrete  implementation  are  direct  lookup  tables 
implemented  in  static  R.4M.  In  a  VLSI  implementation  these  arithmetic  units  would 
be  implemented  with  adders  and  small  ROM  lookup  tables.  Additional  architectural 
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enhancements  are  made  to  PEs  (1,1),  and  (1,2)  to  allow  these  two  processors  to 
operate  as  a  very  high  throughput  vector  processor.  The  array  architecture  in  vector 
mode  is  shown  in  Figure  6.3.  The  augmented  processor  is  depicted  in  Figure  6.4. 


Figure  6.3:  Block  Diagram  of  Vector  Mode  Architecture 


Figure  6.4:  Augmented  Processor  Element 


The  X-bypa5S-bus  of  the  enhanced  PE  is  connected  to  the  X-FIFOs,  allowing 
two  operands  per  cycle  to  be  deposited  on  each  of  the  enhanced  processors.  The  X- 
escape  bus  of  PE  (1,1)  allows  the  results  to  be  flushed  out  of  the  processors  in  one  clock 
cycle.  The  vector  enhancement  allows  the  Gauss  machine  to  perform  level  1  and  level 
2  operations  very  efficiently,  and  while  the  enhancement  does  not  allow  an  addition 
of  two  operands  to  be  performed  directly,  it  may  be  performed  in  two  cycles  using 
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the  accumulator.  The  vector  processor  can  also  perform  pointwise  multiplication  of 
two  vectors  using  a  single  clock  cycle  per  operand  pair. 

6.2.1  Processor  Control  Signals 

This  section  lists  the  processor  control  signals  and  their  function.  The  control  signals 
are  registered  on  the  processor  boards.  The  signals  are  listed  in  Table  6.1. 

The  signals  in  Table  6.1  may  be  broken  into  several  groups.  These  groups  are: 

•  Address  information:  BA2-0,  and  PA2-0. 

•  FIFO  Control:  XIW*,  YIW*,  XOW*,  XIR^  YIR*,  XOR=^,  XIFLRT^,  YI- 
FLRT^,  and  XOFLRT’^. 

•  Adder  RAM  Control:  ROE"',  ARWE*. 

•  Multiplier  RAM  Control:  MROE*,  MRWE*. 

•  X-Bus  Control:  XBOE*,  XBEN*,  XFEN*,  AREN*,  and  AROE*. 

•  Y-Bus  Control:  YBEN*. 

•  Processor  Structure  Control:  PREN*,  and  SREN*. 

•  Processor  Configuration  Control:  VECTORMODE  and  ARITHMODE. 

•  Miscellaneous;  CLR*,  RESBWE*,  and  RESBRE*. 

6.3  Controller  Implementation 

The  Gauss  machine  uses  a  microprogrammable  controller.  The  heart  of  the  controller 
is  a  single  chip  microsequencer  with  EPROM  based  microprogram  store,  the  AMD 
Am29CPLl54.  The  microcode  store  has  a  total  of  512  words  of  microinstruction 
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storage.  The  microsequencer  uses  PLDs  to  decode  its  instructions  for  the  array.  The 
architecture  of  the  controller  is  depicted  in  Figure  6.5.  The  Gauss  machine  controller 
has  a  pipeline  delay  model  depicted  in  Figure  6.6. 


Memory  Mapped 
InvestiGATOR 
Interface 


Figure  6.5:  Block  Diagram  of  Gauss  Machine  Controller  Architecture 
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Figure  6.6:  Gauss  Machine  Pipeline  Delay  Model 

In  order  to  perforin  an  operation  on  the  array,  the  InvestiGATOR  will  load 
some  data  into  the  array  input  FIFOs,  and  order  the  controller  to  perform  the- ex¬ 
pected  operation  by  writing  a  command  to  the  command  register.  The  InvestiGATOR 
then  monitors  the  status  register  in  order  to  determine  when  the  computation  is  com¬ 
plete.  Then  the  InvestiGATOR  retrieves  the  results  from  the  array  output  FIFOs. 
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This  same  method  is  used  for  programming  the  array  multipliers  and  adders,  except 
that  there  is  no  need  to  read  back  any  results. 

The  chosen  microsequencer,  the  Am29CPL154  has  a  relatively  narrow  output 
word  (eight  bits),  yet  the  array  has  a  substantial  number  of  control  lines  a.s  evidenced 
by  Table  6.1.  Fortunately,  this  does  not  present  a  problem  because  there  are  only  a 
limited  number  of  useful  combinations  of  control  signals.  Therefore,  the  output  word 
of  the  microsequencer  is  used  as  a  command  code  or  instruction  and  is  decoded  into 
the  appropriate  set  of  signals  by  the  command  decoder,  see  Figure  6.5. 

6.4  Array  Initialization 

In  order  to  perform  useful  operations  on  the  array,  the  arithmetic  elements  must  be 
initialized.  There  exist  enhancements  which  are  not  visible  in  the  block  diagram  of 
Figure  6.2  to  allow  programming  of  the  multiplier.  The  adder  can  be  programmed 
without  any  architectural  enhancements. 

The  multiplier  and  architecture  related  to  its  programming  is  depicted  in  Fig¬ 
ure  6.7.  Control  signals  are  indicated  in  the  block  diagram.  The  multiplier  memorj/ 
is  addressed  by  the  X-bus  and  Y-bus,  and  by  the  ARITHMODE  signal.  The  multi¬ 
plier  data  is  loaded  from  the  X-bus  to  the  multiplier  memory.  Register  output  enable 
signals  are  indicated  by  an  OE  suffix  while  latch  enable  signals  are  indicated  by  an 
EN  suffix.  The  write  strobe  for  the  memory  is  indicated  by  the  MRWE’''  signal.  The 
MRWE*  signal  is  broadcast  to  all  processors  in  the  system  so  all  of  the  multipliers 
must  be  programmed  at  the  same  time. 

Programming  of  the  multiplier  proceeds  as  follows.  The  X-  and  Y-  FIFOs  are 
loaded  by  the  InvestiGATOR.  The  InvestiGATOR  sends  a  command  to  the  Gauss 
machine  controller  to  program  a  block  of  the  multiplier  memory.  X-  input  FIFO 
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Figure  6.7;  Processor  Multiplier  Programming  Model 


transmits  the  contents  of  the  memory  location  across  the  X-  bus  to  a  register  which 
outputs  to  the  multiplier  memory’s  data  bus.  Next,  the  address  of  the  data  word 
to  be  programmed  is  propagated  across  the  array  from  the  X-  and  Y-  input  FIFOs 
and  the  multiplier  memory’s  write  line  is  strobed.  The  process  is  repeated  until  the 
multiplier  is  programmed. 

The  adder  and  architecture  related  to  its  programming  is  depicted  in  Fig¬ 
ure  6.8.  The  adder  is  programmed  as  follows.  The  adder  data  and  addresses  are 
loaded  into  the  X-  input  FIFO.  The  least  significant  portion  of  the  address  is  trans¬ 
mitted  via  the  X-bus  to  the  product  output  registers,  controlled  by  PROE*  and 
PREN*,  with  MROE*  negated.  Next,  the  most  significant  word  of  address  is  trans¬ 
mitted  and  loaded  into  the  accumulator  register,  controlled  by  SROE*  and  SREN*. 
Finally,  The  actual  data  word  is  transmitted  via  the  X-bus  to  the  F-bus  by  way  of 
the  buffer  controlled  by  XPOE*,  and  to  the  adder  memory’s  data  port.  The  adder 
memory  write  signal,  ARWE*,  is  strobed,  loading  the  data  into  the  adder  memory. 
This  process  is  repeated  until  the  adder  is  programmed. 
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PROE* 


Figure  6.8:  Processor  Adder  Programming  Model 
6.5  Conversion  Engine  Architecture 


The  forward  conversion  engine  performs  the  task  of  generating  the  residues  of  the 
value  input  to  the  engine.  This  forward  conversion  is  a  relatively  straightforward 
process  once  it  is  seen  that  the  process  may  be  accomplished  simply  by  breaking  the 
input  values  into  a  set  of  partial  sums  where  each  sum  represents  a  range  of  bits  of 
that  number;  in  other  words,  suppose  we  wish  to  compute  the  residue  modulo  p  of 
an  L  bit  number  N.  We  would  note  that  the  following  congruence  holds: 


<  N  >p= 


(mod  p), 


where  €  {0,1}  and  are  digits  of  the  binary  representation  of  N.  Now,  suppose 
Q<J<K<L-l.  Then 


<  N  >p= 


Xi  a,-2‘  +  aPJ  +  X:  «.2*' 

L:=0 


K-1 

E 

i-J 


L-l 

E 

i=K 


(mod  p). 
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A  (mod  p)  operation  may  be  added  after  each  partial  sum  without  changing  the 
result: 


<  N  >„= 


“‘2’)  (modp)  +  (modp)  +  (modp)  (modp) 


This  suggests  that  each  partial  sum,  modulo  p,  can  be  computed  using  a  small  table, 
and  the  partial  sums  added  together  to  form  a  sum  which  must  be  corrected  modulo  p. 
This  is  illustrated  in  Figure  1.2.  In  Figure  6.9a,  conversion  of  a  twenty-four  bit  input 
using  two  tables  of  order  2^^  to  produce  an  eight  bit  output  is  demonstrated.  In 
Figure  6.9b,  the  same  conversion  is  accomplished  using  three  tables  of  order  2®. 


(a) 


(b) 


Figure  6.9:  Forward  Conversion  Architecture 


The  forward  conversion  engine  was  not  implemented  in  hardware  since  it  would 
be  relatively  expensive  to  produce  a  discrete  implementation.  Instead,  the  forward 
conversion  engine  was  implemented  with  a  software  architecture  inspired  by  the  above 
discussion.  This  was  motivated  by  the  low  speed  of  a  direct  implementation  of  the 
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forward  conversion  using  the  standard  sequence  of  divide,  multiply,  and  subtract 
operations.  In  particular,  the  multiplication  and  division  operations  are  particularly 
time  consuming  on  the  MC68030  (and  most  microprocessors).  The  source  code  in 
Section  D.5  of  Appendix  D  implements  a  high  speed  forward  conversion  based  upon 
table  lookup  using  small  tables  and  minimal  arithmetic  (addition  and  subtraction 
only). 

Similarly,  the  CRT  engine  hardware  was  too  expensive  to  implement;  emula¬ 
tion  of  the  CRT  was  substituted.  As  for  the  forward  conversion,  the  QRNS  to  CRNS 
to  Gaussian  integer  conversion  was  implemented  using  a  fast,  table  lookup  based 
algorithm  based  upon  the  discussion  in  Section  1.3.  The  source  code  for  this  high 
performance  implementation  is  included  in  Section  D.5  of  Appendix  D. 

6.6  Application  Programmer’s  Interface 
6.6.1  Overview 

The  system  software  for  the  Gauss  Machine  is  divided  into  two  parts:  firmware  for  the 
backplane  and  the  .A-pplication  Programmer’s  Interface  (API).  This  chapter  describes 
the  API  which  contains  routines  for  linear  algebra  and  communication  between  the 
host  and  the  Gauss  Machine.  The  API  is  written  in  THINK  C  5.0  for  the  Macintosh. 

The  Application  Programmer’s  Interface  (API)  contains  roughly  X  subroutines 
that  facilitates  programming  of  the  Gauss  Machine.  The  idea  behind  the  API  is  to 
provide  fast  prototyping  environment  for  developing  and  testing  new  algorithms  for 
the  Gauss  Machine.  Therefore,  the  routines  are  not  necessarily  optimized  for  speed. 

The  API  can  be  divided  into  “high-level”  and  “low-level”  calls.  The  high-level 
routines  often  mimic  Matlab  statements,  e.g.,  matrix-matrix,  matrix- vector,  vector- 
vector  multiplication  is  handled  by  one  routine  called  mult().  The  low-level  calls 
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implements  the  primitive  operations  from  which  the  high-level  routines  are  composed 
of,  such  as,  memory  management  and  communication  between  the  host  and  the  Gauss 
Machine.  Furthermore,  the  algebra  routines  comes  in  two  versions,  one  using  floating¬ 
point  arithmetic  and  the  other  using  integer  arithmetic. 

Typically,  the  development  of  an  algorithm  for  the  Gauss  Machine  consists  of 
the  following  steps: 

•  Program  and  test  algorithm  in  Matlab. 

•  Port  Matlab  code  into  API  calls. 

•  Test  API  code  with  the  Gauss  Machine. 

•  If  optimization  is  of  interest,  rewrite  code  using  the  low-level  API. 

A  complete  listing  of  the  API  calls  are  found  in  Appendix  X. 

6.6.2  High-Level  API  Routines 

Prototyping  and  testing  signal  processing/linear  algebra  algorithms  are  easily  done 
in  interactive  packages  like  Matlab,  Mathematica,  Maple  and  Monarch/Siglab.  The 
design  of  the  high-level  API  was  done  with  this  in  mind.  The  API  routines  imitates 
Matlab  function  calls  which  makes  it  easy  to  port  an  m-file  or  a  Matlab  script  to 
a  C  program  running  on  the  Gauss  Machine.  The  Matlab  statements  are  simply 
exchanged  to  the  corresponding  API  calls  and,  with  some  glue  code,  the  port  is 
complete. 

The  software  was  written  in  THINK  C  version  5.0  with  the  following  libraries: 
ANSI,  MacTraps.  The  code  was  compiled  and  run  on  a  Mac  IIx,  4Mb  RAM,  4Mb 
virtual  memory.  System  7.0. 
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These  are  the  THINK  C  settings  under  Edit ,  Options .  .  . 

•  Language  Settings 

—  ANSI  Conformance 

-  Check  pointer  types. 

—  Language  Extensions 

-  THINK  C 

—  Strict  Prototype  Enforcements 
—  Infer  Prototypes 

•  Compiler  Settings 

—  Generate  68020  instructions 

-  Generate  68881  instructions 

—  Classes  are  indirect  by  default 
—  Methods  are  virtual  by  default 
—  Optimize  monomorphic  methods 

-  \bslash  p  is  unsigned  char[] 

•  Code  Optimization 

-  Defer  h  combine  stack  adjust 

-  Suppress  redundant  loads 

-  Automatic  Register  Assignment  Debugging 
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—  Use  source  debugger 

-  Use  second  screen 
—  Always  save  session 

These  are  the  THINK  C  settings  under  Project,  Set  Project  Type.  .  . 

—  Application 
—  File  type  APPL 

-  Partion  (K)  384 

-  Size  Flags  0000 

The  software  consists  of  5  “library”  files  (with  corresponding  header  files)  and 
one  global  header  file: 

types. h:  Global  type  definitions. 

list.c;  Memory  management  routines.  This  software  was  originally  written  l/y 
R.  F.  Starr,  2639  Valley  Field  Dr.,  SugarLand,  TX  77479  and  was  published  in 
Dr.  Dobbs  .Journal,  list.c  have  been  slightly  modified. 

utils. c:  Utilities. 

conv .  c :  Floating-point  to  fixed-point  conversion  routines. 

matrix. c:  Floating-point  matrix  algebra  routines,  memory  management. 

intunatrix.  c:  Integer  matrix  algebra  routines,  memory  management. 
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The  routines  in  int_matrix .  c  are  identical  to  the  routines  in  matrix .  c  except 
for  those  operations  that  are  not  defined  for  integers,  i.e.,  division. 

In  order  to  compile  these  files  as  parts  of  a  code  resource,  change  all  calls  of 
mallocO  to  MewPtrO  and  free()  to  DisposPrt().  Furthermore,  comment  out  the 
stdio  routines,  i.e.,  printf  ()  and  friends,  in  utils. c.  It  may  be  also  necessary  to 
change  the  ANSI  library  to  the  required  library  for  code  resources. 

Note:  Whenever  the  comments  in  the  code  and  this  document  disagree,  rely 
on  this  document. 

6.6.3  Macros  and  Constants 
file:  intunatrix.c 

#define  CDMP  0x4  /*  marks  compatible  dimensions  */ 

#define  SCAL  0x8  /*  marks  one  operand  as  a  scalar  */ 

#define  INT(a)  ((int)(a))  /*  casts  a  to  integer  */ 

Sdefine  EQDIM(a,  b)  (  (a->rows  ==  b->rows)  &&  (a->cols  == 
b->cols)  )  /*  checks  if  a  and  b  has  the  same  dimensions  */ 

file:  matrix,  c 

#define  OOPS  printf  (oops:  “/odXn,  __LINE_) ;  /*  debugging  macro  */ 
#define  COMP  0x4  /*  marks  compatible  dimesions  */ 

#define  SCAL  0x8  /*  marks  one  operand  as  a  scalar  */ 

Sdefine  INT(a)  ((int)(a))  /*  casts  a  to  integer  */ 


file:  conv.h 
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tdefine  max(a,  b)  (a  >  b)  ?  a  :  b  /*  maximum  of  a  and  b 
#define  min (a,  b)  (a  <  b)  ?  a  :  b  /*  minimum  of  a  and  b  */ 

file:  int_matrix  .h] 

#define  deref (type,x)  *( (type*) (x) )  /*  not  really  useful  */ 
file:  matrix. h 

#define  SIZE (a)  ((a)->rows  *  (a)->cols)  /*  computes  number  of 
elements  in  matrix  */ 

#define  EQDIM(a,  b)  (  (a->rows  ==  b->rows)  &&  (a->cols  == 
b->cols)  )  /*  checks  if  a  and  b  has  the. sarnie  dimensions  */ 

#define  cmuKa,  b,  c,  d,  e,  f);  a  =  (c)  *  (e)  -  (d)  *  (f);  b  = 
(c)  ♦  (f )  +  (d)  *  (e) ;  /*  complex  multiply  */ 

#define  cabs (a,  b)  sqrt(((a)  *  (a)  +  (b)  *  (b)))  /*  compute 
complex  absolut  value  */ 

file:  types. h 

Sdefine  INTTYPE  long  /*  integer  data  type  */ 

#define  FLOATTYPE  double  /*  floating-point  data  type  */ 

#define  NOERR  0  /*  OK  return  code  */ 

#define  CMPLX  0x1  /*  marks  a  complex  value  */ 

Sdefine  REAL  0x2  /*  marks  a  real  value  */ 


file:  utils_h 
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#define  PLAIN  0x0  /*  Plain  format  */ 

#define  MATLAB  0x1  /*  Print  in  MATLAB  style  (with  [  ]  and  ;)  */ 

6.6.4  Function  Descriptions. 

matrix  *add(matrix  *a,  matrix  *b) 
description:  Adds  matrices  a  and  b. 

arguments:  matrix  =t=a,  *b  Input  matrices. 

returns:  matrix  *  The  sum  of  a  and  b,  NULL  if  error. 

usage:  sum  =  add(a,  b) ;  /*  sum  =  a  +  b 
'  matlab  equivalent: 

>>  sum  =  a  +  b ;  */ 

file:  matrix. c 

matrix  *appendcols(matrix  *a,  matrix  *b) 

description:  Returns  a  matrix  with  b’s  columns  appended  to  a  ([a,  b]).  Naturally,  a  and  b 
must  have  the  same  number  of  rows. 

arguments:  matrix  *a,  +b  Input  matrices. 

returns:  matrix  [a,  b],  NULL  if  error. 

usage:  c  =  appendcols(a,  b) ;  /*  c  =  [a,  b] 


matlab  equivalent: 
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»  c  =  [a,  b]  ;  */ 
file:  matrix .  c 

matrix  *appendrows(matrix  *a,  matrix  *b) 

description:  Returns  a  matrix  with  b’s  rows  appended  to  a  ([a;  b]).  Naturally,  a  and  b 
must  have  the  same  number  of  columns. 

arguments:  matrix  *a,  *b  Input  matrices. 

returns:  matrix  *  [a;  b],  NULL  if  error. 

usage:  c  =  appendrows(a,  b);  /♦  c  =  [a;  b] 
matlab  equivalent: 

»  c  =  [a;  b]  ;  */ 

file:  matrix. c 

matrix  *assign(matrix  *target,  matrix  *rows,  matrix  *cols,  matrix*  *source 

description:  Puts  the  matrix  source  into  a  sub  matrix  of  target  indicated  by  rows  and  cols. 
That  is,  rows  and  cols  defines  a  sub  matrix  of  target  (exactly  like 
sub_matrix())  and  this  sub  matrix  is  overwritten  with  data  from  the  source 
matrix.  This  is  analogous  to  the  matlab  statement  target(rows,  cols)  = 
source.  Needless  to  say,  the  sub  matrix  of  target  and  source  must  be  of  the 
same  dimensions.  For  example,  suppose 

target  =  [1  2  3  4;  5  6  7  8;  9  10  11  12], 
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source  =  [13  14;  15  16], 

rows  =  [3  2]  and  cols  =  [1  2],  the  resulting  matrix  would  be 
[  1  2  3  4;  15  16  7  8;  13  14  11  12  ]. 

If  rows  or  cols  is  NULL,  this  means  all  the  rows  and  all  the  columns  of  target. 
That  is,  target  (rows,:)  =  source  would  be  coded  as  assign(target,  rows,  NULL, 
source),  and  similarly,  target(rows,:)  =  source  would  be  coded  as 
assign(target,  rows,  NULL,  source). 

arguments:  matrix  ^target  Matrix  to  be  written  to. 
matrix  *rows  Row  indexing  matrix, 

matrix  *cols  Column  indexing  matrix 

matrix  ^source  Matrix  whose  data  will  be  written  to  target. 

returns:  matrix  *  Copy  of  target  with  parts  overwritten  by  source,  NULL  if  error. 

usage:  ass ign (target ,  rows,  cols,  source);  //  target(rows,  cols)  = 
source 

assign (target ,  rows,  NULL,  source);  //  target(rows,  :)  =  source 
assign(target ,  NULL,  cols,  source);  //  target(:,  cols)  =  source 

see  also:  sub_matrix()  temp_copy() 

note;  Does  not  handle  the  case  target(:,;)  =  source.  For  this  case  copy  source  with 
target  =  temp.copy  (source). 


file:  matrix. c 
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void  clear_error(void) 

description:  Cleaxs  the  error  string.  This  is  typically  done  at  start  up  or  after  recovering 
from  an  error. 

arguments:  nothing 
returns:  nothing 

usage:  clear.errorO  ;  //  Clear  error  messages 
see  also:  get_error() ,  errorO,  print_error() 
file:  utils. c 

void  close_G]VI(void) 

description:  Frees  memory  allocated  to  temporary  matrices  and  cleans  up.  close_GM() 
should  only  be  called  once  and  be  matched  with  a  open.GM()  call.  To  only 
free  memory  allocated  by  temporary  matrices  use  kilLtempJist(). 

arguments:  none 
returns:  nothing 

usage:  close_GM()  ;  //  Clean  up 
see  also:  open_GM()  ,  kill_temp_list  () 


file:  utils .  c 


NAWCADWAR-95005-4.5 


72 

int  cmplx_promote(matrix  *a,  matrix  *b) 

description:  Promotes,  if  necessary,  the  operands  a  and  b  to  complex  matrices,  that  is,  if 
either  a  or  b  is  complex  then  both  a  and  b  are  converted  to  complex  matrices. 

arguments:  matrix  Matrices  to  be  promoted, 

returns:  int  NOERR  if  successful,  —1  if  malloc  failed 

usage:  res  =  cmplx_promotG(a,  b)  ;  /*  Complex  promotes  a  and  b,  OK  if  res 
==  NOERR.  */ 

see  also:  op_check() 

file:  matrix .  c 

matrix  *conj  (matrix  *mat) 

description:  Returns  a  matrix  equal  to  the  complex  conjugate  of  the  input  matrix. 

arguments:  matrix  *mat  Input  matrix. 

returns:  matrix  *  The  complex  conjugated  input  matrix 

usage:  conj_A  =  conj  (A)  ;  /*  conj_A  =  -A 
matlab  equivalent: 

>>  conj_A  =  conj (A) ;  */ 


file:  matrix.c 
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matrix  *copy-matrix(matrix  *source) 

description:  Returns  a  copy  of  the  matrix  source.  The  copy  is  allocated  with  new_matrix(). 

Note  that  it  is  the  user’s  responsibility  to  free  this  matrix.  Use  copy_temp()  to 
get  a  temporary  matrix  (which  will  be  freed  by  kill_temp_list()  or  close_GM()). 

arguments:  matrix  *source  Matrix  to  be  copied. 

returns:  matrix  *  Copy  of  source.  NULL  if  out  of  memory. 

usage:  new  =  copy_matrix(old)  ;  //  copy  the  matrix  old  to  the  matrix  new 

see  also:  kill-matrix ()  ,  new_temp(),  copy_temp() ,  new-matrix()  , 
kill-temp_list() 


note:  It  is  the  user’s  responsibility  to  free  any  matrix  that  has  been  allocated  with 
copy  .matrix  (with  kill-matrix). 

file:  matrix. c 


matrix  *copy_temp (matrix  *source) 

description:  Returns  a  copy  of  the  matrix  source.  The  copy  is  allocated  with  new_temp() 
and  therefore,  is  a  temporary  matrix.  To  free  ALL  temporary  matrices,  use 
kilLtempJist()  or  close_GM(). 

arguments:  matrix  ^source  Matrix  to  be  copied. 


returns:  matrix  * 


Copy  of  source.  NULL  if  out  of  memory. 
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usage:  new  =  copy_temp(old) ;  //  copy  the  matrix  old  to  the  temporary 
matrix  new 

see  also:  kill_matrix()  ,  copyjaatrixO  ,  new_temp(),  n6w_matrix()  , 
kill_temp_list  0 

file:  matrix. c 

void  error(char  *msg) 

description:  Copies  the  string  msg  to  the  global  error  string.  This  routine  is  used  to  report 
errors.  The  error  string  can  be  recovered  by  get_error().  Maximum  length  of 
msg  is  255  characters. 

arguments:  char  *msg;  Error  message  to  be  copied  to  the  global  error  string. 

returns:  nothing 

usage:  error(Division  by  zero  is  a  bad  idea);  /*  Division  by  zero  error 
message  */ 

see  also:  get_error(),  clear_error()  ,  print_error () 
file:  utils,  c 

FLOATTYPE  fixed2float(INTTYPE  i) 

description:  Converts  a  fixed-point  number  to  floating-point  using  the  word  length  and 
number  of  fractional  bits  set  by  init_conv(). 
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arguments:  INTTYPE  i  Fixed-point  number  to  be  converted  to  floating-point, 

returns:  FLOATTYPE  Floating-point  number  representing  the  input  argument. 

usage:  FLOATTYPE  result; 

INTTYPE  int_result; 

result  =  float2fixed(int_result) ;  /*  convert  int_result  to 
floating-point  */ 

see  also:  init_conv()  ,  floatOf  ixedO  ,  mfloatOf  ixedO  ,  mf  ixedOfloat  () 
file:  conv.c 

INTTYPE  float2fixed(FLOATTYPE  f) 

description:  Converts  a  floating-point  number  to  fixed-point  using  the  word  length  and 
number  of  fractional  bits  set  by  init_conv(). 

arguments:  FLOATTYPE  f  Floating-point  number  to  be  converted  to  fixed-point. 

returns:  INTTYPE  Integer  whose  bits  are  the  fixed-point  representation  of  the  input 
argument. 

usage:  INTTYPE  fixed_pi; 

fixed_pi  =  float2fixed(3. 141592654);  //  convert  pi  to  fixed-point 
see  also:  init_conv()  ,  f  ixed2float()  ,  mfloat2fixed()  ,  mf  ixed2float  () 


file:  conv.c 
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void  get_error(char  *error_string) 

description:  Copies  the  global  error  string  to  error_string.  If  an  error  .has  occurred  the 

error  string  will  contain  an  error  message.  error_string  must  be  allocated  to  at 
least  255  characters  by  the  caller. 

arguments;  char  *error_string  Will  contain  a  copy  of  the  error  message  (if  any), 
returns:  nothing 


usage:  char  err_strC255]  ;  //  make  sure  that  err_str  is  at  least  255 
chars  long 

get_error(err_str) ;  //  get  error  message 
see  also:  errorO  ,  clear_error ()  ,  print.error () 
file:  utils. c 

void  GM2LV(matrix  *a,  TDlHdl  re,  TDlHdl  im) 


description:  Copies  data  from  CM  matrix  to  Labview  matrix.  Note  that  re  and  im  must 
be  already  allocated  by  the  caller  and  of  correct  dimensions.  If  a  is  a  real 
matrix  then  zeros  will  be  put  in  im. 

arguments:  matrix  *a  GM  matrix  whose  data  is  to  be  copied  to  re  and  im. 

TDlHdl  re,  im  Handles  to  Labview  matrix  data  structure. 


returns;  nothing 
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usage:  LV2GM(A,  A-real,  A_imag)  ;  //  Copies  data  from  A  into  A_real  and 
A_imag . 

see  also:  LV2GM() 

file:  utils.c 

matrix  *herm(matrix  *mat) 

description;  Returns  the  conjugate  transpose  of  the  input  matrix  ,  that  is,  takes  the 
hermitian  of  mat.  ■ 

arguments:  matrix  *mat  Input  matrix. 

returns:  matrix  *  The  conjugate  transposed  input  matrix,  NULL  if  error. 

usage:  tran_A  =  herm(A);  /*  tranJl  =  A' 
matlab  equivalent: 

>>  A  =  A';  y.  Note  '  not  that  is,  conjugate  transpose  */ 
see  also:  transpO 
file:  matrix .  c 

matrix  *imag(matrix  *mat) 

description:  Returns  a  matrix  containing  the  imaginary  part  of  mat. 
arguments:  matrix  *mat  Input  matrix. 
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returns:  matrix  *  Imaginary  part  of  mat. 

usage:  im_part  =  imag(cmplx_matrix) ;  /*  im.part  =  Im[cmplx_matrix] 
matlab  equivalent: 

>>  im_part  =  imag(cmplx_matrix)  ;  */ 

file:  matrix. c 

matrix  *index_cols (matrix  *mat,  matrix  *ind) 

description:  Returns  the  columns  of  mat  that  are  pointed  out  by  ind.  The  elements  of  ind 
are  truncated  to  integers  (with  mfloor())  and  are  used  to  pick  out  columns. 
That  is,  suppose  mat  =  [1  2  -3;  4  5  6;  7  8  9],  and  ind  =  [3.14  1.99],  then  the 
result  would  be  a  matrix  of  the  form  [3  2;  6  5;  9  8].  This  is  analogous  to  the 
matlab  statement,  mat(:,  ind). 

arguments:  matrix  *mat  Matrix  to  be  indexed. 

matrix  *ind  Column  indexing  matrix. 

returns:  matrix  *  The  indexed  input  matrix,  NULL  if  error. 

usage:  B  =  index_cols(mat ,  ind);  /*  B  =  mat(:,  ind) 
matlab  equivalent: 

>>  B  =  mat(:,  ind);  *l 

see  also:  index_rows() ,  index_rows_cols()  ,  sub_matrix() 


note:  For  greatest  convenience,  use  sub_matrix()  for  all  indexing  purposes. 
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file:  matrix. c 

matrix  *index_rows (matrix  *mat,  matrix  *ind) 

description:  Returns  the  rows  of  mat  that  are  pointed  out  by  ind.  The  elements  of  ind  are 
truncated  to  integers  (with  mfioor())  and  are  used  to  pick  out  rows.  That  is, 
suppose  mat  =  [1  2  3;  4  5  6;  7  8  9],  and  ind  =  [3.14  1.99],  then  the  result 
would  be  a  matrix  of  the  form  [7  8  9;  4  5  6].  This  is  analogous  to  the  matlab 
statement,  mat(ind,  :). 

arguments:  matrix  *mat  Matrix  to  be  indexed. 

matrix  *ind  Row  indexing  matrix. 

returns:  matrix  *  The  indexed  input  matrix,  NULL  if  error. 

usage:  B  =  index_rows  (mat ,  ind);  /*  B  =  mat  (ind,  :)  • 

matlab  equivalent; 

>>  B  =  mat (ind,  :)  */ 

see  also:  index.cols ()  ,  index_rows_cols() ,  sub_matrix() 

note:  For  greatest  convenience,  use  sub_matrix()  for  all  indexing  purposes, 
file:  matrix.c 


matrix  *index_rows_cols(matrix  *mat,  matrix  *ind_a,  matrix  *ind_b) 


NAWCADWAR-95005-4.5 


80 


description:  Returns  the  rows  and  columns  of  mat  that  are  pointed  out  by  ind_a  and  ind_b. 

The  elements  of  ind_a  and  ind_b  are  truncated  to  integers  (with  mfloor())  and 
axe  used  to  pick  out  rows  and  columns,  respectively.  That  is,  suppose  mat  = 

[1  2  3;  4  5  6;  7  8  9],  and  ind_a  =  [3.14  1.99]  and  ind_b  =  [2.1],  then  the  result 
would  be  a  matrix  of  the  form  [8;  2]  (that  is,  elements  (3,2)  and  (1,2)).  This  is 
analogous  to  the  matlab  statement,  mat(ind_a,  ind_b). 


arguments:  matrix  *mat  Matrix  to  be  indexed. 

matrix  *ind_a  Row  indexing  matrix, 

matrix  *ind_b  Column  indexing  matrix. 

returns:  matrix  *  The  indexed  input  matrix,  NULL  if  error. 

usage:  B  =  index_rows_cols  (mat ,  ind_a,  ind_b) ;  /*  B  =  mat(ind_a,  ind_b) 
matlab  equivalent: 

>>  B  =  mat(ind_a,  ind_b)  ;  */ 


see  also:  index_rows()  ,  index.cols ()  ,  sub_matrix() 


note:  For  greatest  convenience,  use  sub_matrix()  for  ail  indexing  purposes, 
file:  matrix,  c 


void  init_GM(void) 


description:  Initializes  everything.  Clears  the  global  error  string  (see  error()),  sets  output 
print  format  to  MATLAB  and  8  digits  (see  init_print())  and  initializes 
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memory  management  (see  init_tempJ.ist()).  init_GM()  should  only  be  called 
once  and  be  matched  with  a  close_GM()  call. 

arguments:  none 
returns:  nothing 

usage:  init_GM() ;  //  Initialize  everything 
see  also:  close_GM() 

file:  utils. c 

void  init_conv(int  wlen,  int  fbits) 

description:  Initializes  the  conversion  routines  and  sets  the  word  length  and  number  of 

fractional  bits  for  the  fixed-point  representation.  The  fixed-point  numbers  are 
assumed  to  be  signed.  Thus,  for  a  word  length  of  8  and  3  fractional  bits,  one 
bit  would  be  the  sign  bit  and  4  bits  will  be  left  for  the  integer  part.  This 
means  that  number  between  1111.111  and  -1111.111  (±15.875)  can  be 
represented.  Maximal  word  length  is  32. 

arguments:  int  wlen  Number  of  bits  per  word 
int  fbits  Number  of  fractional  bits 

returns:  nothing 

usage:  init_conv(21 ,  6);  /*  Use  21  bit  signed  words;  6  fractional  bits, 
14  integer  bits  ♦/ 
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see  also:  float2fixed()  ,  f ixed2f loat  ()  ,  mfloat2f ixed()  ,  raf ixed2f loat  () 
file:  conv.c 

void  init_print(int  sdig,  int  format) 

description:  Set  number  of  significant  digits  and  format  used  by  printm()  and  int_printm(). 

The  format  can  either  be  PLAIN  or  MATLAB.  MATLAB  gives  a  text  output 
that  is  easily  imported  into  matlab.  PLAIN  on  the  other  hand  is  a  bit  easier 
read. 

arguments:  int  sdig  Number  of  significant  digits. 

int  format  Output  format  style,  either  MATLAB  or  PLAIN. 

returns:  nothing 

usage:  init.print (6 ,  MATLAB);  //  6  significant  digits  and  MATLAB  output 
format 

see  also:  printmO  ,  int_printm()  ,  init_GM() 
file:  utils. c 

int  init_tempJist(void) 

description:  Initialize  the  list  for  allocation  of  temporary  matrices 

arguments:  none 


returns:  int 


NOERR  if  all  right,  —1  if  out  of  memory 
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usage:  err  =  iiiit_temp_list ()  ;  /*  Initialize  temp  matrices,  inspect  err 
for  errors .  */ 

see  also:  init_GM() 

note:  imt_tempJist()  is  normally  called  from  init_GM(); 
file:  matrix .  c 

int_matrix  *mt.add(int_matrix  *a,  int.matrix  *b) 

description:  Adds  matrices  a  and  b. 

arguments:  int_matrix  *a,  *b  Input  matrices. 

returns:  int_matrix  *  The  sum  of  a  and  b,  NULL  if  error. 

usage:  sum  =  int_add(a,  b) ;  /*  sum  =  a  +  b 
matlab  equivalent: 

>>  sum  =  a  +  b;  */ 

file:  intjnatrix.c 

int_matrix  *int_appendcols(int_matrix  *a,  int_matrix  *b) 

description:  Returns  a  matrix  with  b’s  columns  appended  to  a  ([a,  b]).  Naturally,  a  and  b 
must  have  the  same  number  of  rows. 

arguments:  int -matrix  *a,  *b  Input  matrices. 
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returns:  intjnatrix  *  [a,  b],  NULL  if  error. 

usage:  c  =  int_appendcols(a,  b) ;  /*  c  =  [a,  b] 
matlab  equivalent: 

>>  c  =  [a,  b] ;  *{ 

file:  int .matrix .  c 


int.matrix  *int_appendrows(int_matrix  *a,  int.matrix  *b) 

description:  Returns  a  matrix  with  b’s  rows  appended  to  a  ([a;  b]).  Naturally,  a  and  b 
must  have  the  same  number  of  columns. 

arguments:  intjnatrix  *a,  *b  Input  matrices. 

returns:  intunatrix  *  [a;  b],  NULL  if  error. 

usage:  c  =  int.appendrows (a,  b) ;  /*  c  =  [a;  b] 
matlab  equivalent: 

»  c  =  [a;  b] ;  */ 

file:  intjnatrix.c 

int_matrix  *int_assign (int.matrix  *target,  int_matrix  *rows,  int_matrix  *cols,  matrix  *source) 
description:  Puts  the  matrix  source  into  a  sub  matrix  of  target  indicated  by  rows  and  cols. 


That  is,  rows  and  cols  defines  a  sub  matrix  of  target  (exactly  like 
int_sub_matrix())  and  this  sub  matrix  is  overwritten  with  data  from  the  source 
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matrix.  This  is  analogous  to  the  matlab  statement  target(rows,  cols)  = 
source.  Needless  to  say,  the  sub  matrix  of  target  and  source  must  be  of  the 
same  dimensions.  For  example,  suppose 

target  =  [1  2  3  4;  5  6  7  8;  9  10  11  12], 

source  =  [13  14;  15  16], 

rows  =  [3  2]  and  cols  =  [12],  the  resulting  matrix  would  be 
[  1  2  3  4;  15  16  7  8;  13  14  11  12  ]. 

If  rows  or  cols  is  NULL,  this  means  all  the  rows  and  all  the  columns  of  target. 
That  is,  target(rows,:)  =  source  would  be  coded  as  assign(target,  rows,  NULL, 
source),  and  similarly,  target(rows,:)  =  source  would  be  coded  as 
int_assign(target,  rows,  NULL,  source). 


arguments:  int_matrix  ^target 
int-matrix  *rows 
int-inatrix  *cols 
int_matrix  *source 


Matrix  to  be  written  to. 

Row  indexing  matrix. 

Column  indexing  matrix 

Matrix  whose  data  will  be  written  to  target. 


returns:  int -matrix  * 
error. 


Copy  of  tcirget  with  parts  overwritten  by  source,  NULL  if 


usage:  int_assign (target ,  rows,  cols,  source);  //  target(rows,  cols)  - 
source 

int.assign (target ,  rows,  NULL,  source);  //  target(rows,  :)  = 


source 
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int_assign(target ,  MULL,  cols,  source);  //  target(:,  cols)  =  ■ 
source 

see  also:  int_subjiiatrix() ,  int_temp_copy  () 

note:  Does  not  handle  the  case  target(:,:)  =  source.  For  this  case  copy  source  with 
target  =  int_temp_copy(source). 

file:  int_matrix .  c 

int  int_cmplx_promote(int_inatrix  *a,  int_matrix  *b) 

description:  Promotes,  if  necessary,  the  operands  a  and  b  to  complex  matrices,  that  is,  if 
either  a  or  b  is  complex  then  both  a  and  b  are  converted  to  complex  matrices. 

arguments:  iiit_matrix  =*'a,  *b  Matrices  to  be  promoted. 

returns:  int  NO  ERR  if  successful,  —1  if  malloc  failed 

usage:  res  =  int-cmplx^jromoteCa,  b)  ;  /*  Complex  promotes  a  and  b,  OK  if 
res  ==  NOERR.  */ 

see  also:  int_op_check() 

file:  int_matrix . c 

int_matrix  *int_conj(int_matrix  *mat) 
description:  Returns  a  matrix  equal  to  the  complex  conjugate  of  the  input  matrix. 


arguments:  intunatrix  *mat  Input  matrix. 
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returns:  intjnatrix  *  The  complex  conjugated  input  matrix 

usage:  conjJt  =  int-conj  (A) ;  /*  conj_A  =  -A 
matlab  equivalent: 

>>  conj_A  =  conj (A) ;  */ 

file:  intnnatrix.c 

int_matrix  *int_copy_matrix(int_matrix  *source) 

description:  Returns  a  copy  of  the  matrix  source.  The  copy  is  allocated  with 

int_new_matrix().  Note  that  it  is  the  user’s  responsibility  to  free  this  matrix. 
Use  int_copy_temp()  to  get  a  temporary  matrix  (which  will  be  freed  by 
kilLtempJist()  or  close_GM()). 

arguments:  int_matrix  ^source  Matrix  to  be  copied. 

returns:  intjniatrix  *  Copy  of  source.  NULL  if  out  of  memory. 

usage:  new  =  int_copy_iaatrix(old) ;  //  copy  the  matrix  old  to  the  matrix 
new 

see  also:  intJcill-matrixO  ,  intjnew.tempO  ,  int_copy_temp()  , 
int_newnnatrix()  , 

kill_temp_list  0 

note:  It  is  the  user’s  responsibility  to  free  any  matrix  that  has  been  allocated  with 
int-copy -matrix  (with  int_kill_matrix). 
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file;  intjnatrix.c 

int_matrix  *int_copy_temp(int_matrix  ^source) 

description:  Returns  a  copy  of  the  matrix  source.  The  copy  is  allocated  with 

int_new_temp()  and  therefore,  is  a  temporary  matrix.  To  free  ALL  temporary 
matrices,  use  kilLtempJist()  or  close_GM(). 

arguments:  int_matrix  ^source  Matrix  to  be  copied. 

returns:  intunatrix  *  Copy  of  source.  NULL  if  out  of  memory. 

usage:  new  =  int_copy_temp(old)  ;  //  copy  the  matrix  old  to  the  temporary 
matrix  new 

see  also;  int_kill_matrix()  ,  int_copy_matrix()  ,  int_new_temp() , 
int_new_matrix()  , 

kill_temp_list  0 
file:  intjnatrix.c 

int_matrix  *int_herm(intjTiatrix  *mat) 

description:  Returns  the  conjugate  transpose  of  the  input  matrix,  that  is,  takes  the 
hermitian  of  mat. 

arguments;  int  jnatrix  *mat  Input  matrix. 

returns:  int  jnatrix  *■  The  conjugate  transposed  input  matrix,  NULL  if  error. 
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usage:  tran_A  =  intJierm(A);  /*  tran_A  =  k’ 
matlab  equivalent: 

»  A  =  A';  7.  Note  '  not  .'.  that  is,  conjugate  transpose  */ 
see  also:  int_transp() 
file:  intjnatrix.c 

int_matrix  *int_imag(int_matrix  *mat) 

description:  Returns  a  matrix  containing  the  imaginary  part  of  mat. 

arguments:  int_matrix  *mat  Input  matrix. 

returns:  intjnatrix  *  Imaginary  part  of  mat. 

usage:  iin_part  =  int_iinag(cniplx_niatrix)  ;  /*  iiti_part  =  Im [cmplxjnatrix] 
matlab  equivalent: 

»  im_part  =  imag (cmplxjnatrix) ;  */ 
file:  intjmatrix.c 

int_matrix  *int_index_cols(int_matrix  *mat,  int_matrix  *ind) 

description:  Returns  the  columns  of  mat  that  are  pointed  out  by  ind.  The  elements  of  ind 
are  used  to  pick  out  columns.  That  is,  suppose  mat  =  [1  2  3;  4  5  6;  7  8  9],  and 
ind  =[3  1],  then  the  result  would  be  a  matrix  of  the  form  [3  2;  6  5;  9  8].  This 
is  analogous  to  the  matlab  statement,  mat(:,  ind). 
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arguments:  int .matrix  =t=mat  Matrix  to  be  indexed. 

intjnatrix  *ind  Column  indexing  matrix. 

returns;  intnnatrix  *  The  indexed  input  matrix,  NULL  if  error. 

usage:  B  =  int_index_cols  (mat ,  ind) ;  /*  B  =  mat(:,  ind) 
matlab  equivalent: 

>>  B  =  mat ( : ,  ind) ;  */ 

see  also:  int.indexnrows () ,  int_indexjrows_cols () ,  int_subjnatrix() 

note:  For  greatest  convenience,  use  int.sub_matrix()  for  all  indexing  purposes, 
file:  intnaatrix.c 

int_matrix  *int_indexj-ows(int_matrix  *mat,  int_matrix  *ind) 

description.  Returns  the  rows  of  mat  that  are  pointed  out  by  ind.  The  elements  of  ind  are 
used  to  pick  out  rows.  That  is,  suppose  mat  =  [1  2  3;  4  5  6;  7  8  9],  and  ind  = 
[3  1],  then  the  result  would  be  a  matrix  of  the  form  [7  8  9;  4  5  6].  This  is 
analogous  to  the  matlab  statement,  mat(ind,  :). 

arguments:  int  jnatrix  *mat  Matrix  to  be  indexed. 

int  nnatrix  *ind  Row  indexing  matrix. 


returns:  intunatrix  * 


The  indexed  input  matrix,  NULL  if  error. 
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usage;  B  =  int_index_rows(mat ,  ind) ;  /*  B  =  matCind,  :) 
matlab  equivalent: 

»  B  =  mat (ind,  :)  */ 

see  also:  int_index_cols()  ,  int_index_rows_cols()  ,  int_sub_matrix() 

note:  For  greatest  convenience,  use  int_sub_matrix()  for  all  indexing  purposes, 
file:  int_matrix.c 

int_index_rows_cols(int_matrix  *mat,  int_matrix  *ind_a,  int_matrix*  ind_b) 

description:  Returns  the  rows  and  columns  of  mat  that  are  pointed  out  by  ind_a  and  ind_b. 
The  elements  of  ind_a  and  ind_b  are  used  to  pick  out  rows  and  columns, 
respectively.  That  is,  suppose  mat  =  [1  2  3;  4  5  6;  7  8  9],  and  ind_a  =  [3  1] 
and  ind_b  =  [2],  then  the  result  would  be  a  matrix  of  the  form  [8;  2]  (that  is, 
elements  (3,2)  and  (1,2)).  This  is  analogous  to  the  matlab  statement, 
mat(ind_a,  ind.b). 

arguments:  int_matrix  *mat  Matrix  to  be  indexed. 

int  jnatrix  *ind_a  Row  indexing  matrix. 

int_matrix  *ind_b  Column  indexing  matrix. 

returns:  int  Jtiatrix  *  The  indexed  input  matrix,  NULL  if  error. 

usage:  B  =  iiit_index_rows_cols(mat,  ind_a,  in.d_b)  ;  /*  B  =  mat(ind_a, 
ind_b) 
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matlab  equivalent: 

>>  B  =  mat(ind_a,  ind._b)  ;  */ 

see  also:  int_index_rows  ()  ,  int_index_cols()  ,  int_sub_matrix() 

note:  For  greatest  convenience,  use  int_sub-inatrix()  for  all  indexing  purposes, 
file:  int_matrix.c 


void  int_kill_iTiatrix(int_matrix  *mat) 

description:  Frees  memory  used  by  mat.  Note  that  mat  should  have  been  allocated  with 
int_new_matrix()  or  int_copy_matrix().  If  mat  is  a  temporary  matrix,  that  is, 
allocated  explicitly  or  implicitly  with  int_new_temp()  or  int_copy_temp(),  then 
kilLtempJist()  should  be  used. 

arguments:  int_matrix  *mat  Matrix  to  be  freed,  must  have  been  allocated  by 
intjaew_matrix()  or  int.copy_matrix() 

returns:  nothing 

usage:  int_killjnatrix(A)  ;  //  Free  memory  allocated  for  A 

see  also:  int_copyjnatrix()  ,  intmew.tempO  ,  int_copy_temp()  , 
int_new_matrix()  , 

kill_temp_list  0 

note:  The  matrix  mat  must  have  been  allocated  by  int_new_matrix()  or 
int_copy_matrix() 
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file:  iiit_matrix. c 

int  int_maxJndex(int_matrix  *mat) 

description:  Return  index  to  maximal  element  of  mat. 

arguments:  int_matrix  *mat  Input  matrix. 

returns:  int  Index  to  the  maximal  element  of  mat. 

usage:  max_i  =  int_max_index(mat)  ;  /*  max(mat)  =  mat  Cmax_i] 
matlab  equivalent: 

»  max-i  =  find (mat  ==  max(mat(:))) ;  */ 
file:  int_matrix.c 

int  int_minJndex(int_matrix  *mat) 

description:  Return  index  to  minimal  element  of  mat. 

arguments:  int_matrix  *mat  Input  matrix. 

returns:  int  Index  to  the  minimal  element  of  mat. 

usage:  min_i  =  int_min_index(mat) ;  /*  min(mat)  =  mat  [min_i] 
matlab  equivalent: 

>>  min_i  =  find (mat  ==  min(mat ( ; )) ) ;  */ 
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file:  intjnatrix .  c 
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int .matrix  *int .minus (intjnatrix  *mat) 

description;  Returns  a  matrix  equal  to  the  negative  of  input  matrix, 
arguments:  int unatrix  =i'mat  Input  matrix. 

returns;  int  jnatrix  *  The  negated  input  matrix. 

usage:  in.inus.A  =  int  jninus  (A)  ;  /*  minus Ji  =  -A 
matlab  equivalent: 

>>  minus Jl  =  -A;  */ 

file:  int_jnatrix .  c 

int.matrix  *int.mul(int.matrix  *a,  int.matrix  *b)  ■ 

I 

description:  Multiplication  of  matrices  a  and  b. 
arguments:  intmiatrix  *a,  *b  Input  matrices. 

returns:  intnnatrix  *  The  product  of  a  and  b,  NULL  if  error. 

usage:  prod  =  int.pmul (a,  b)  ;  /*  pprod  =  a  *  b 
matlab  equivalent: 

>>  prod  =  a  *  b;  */ 

file:  intnnatrix .  c 
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int  int_mul_check(int_niatrix  *a,  int_matrix  *b) 

description:  Check  field  type  and  dimensions.  First  a  and  b  are  complex  promoted  by 

int_cmplx_promote().  Returns  COMP  if  a  and  b  have  the  same  dimensions. 
Returns  COMP  —  SCAL  if  either  a  or  b  is  a  scalar.  In  addition,  if  a  and  b 
are  complex,  CMPLX  is  OR  ed  to  the  returned  value,  otherwise  REAL  is  OR 
ed  to  the  returned  value.  Thus,  if  type  =  int_op_check(a,b),  then  (type  k 
CMPLX)  will  be  true  if  either  a  or  b  is  complex,  (type  k  REAL)  will  be  true 
if  both  a  and  b  are  real,  (type  k  COMP)  will  be  true  if  dimensions  match  or  if 
a  or  b  is  a  scalar,  (type  k  SCAL)  will  be  true  if  a  or  b  is  a  scalar. 

arguments:  int  .matrix  *a,  *b  matrices  to  be  checked 


returns:  int  The  bits  are  set  according  to  the  description  above. 

usage:  type  =  intuiiul_check(a,  b) ;  /*  checks  dimensions  of  a,  b.  Bits 

in  type  will  be  set  in  type  according  to  the  description  above  */ 

see  also:  int_cmplx_promote()  ,  int_op_check() 

note:  int_muLcheck()  is  used  by  intjiiul().  A  scalar  is  compatible  with  any  matrix. 


file:  intjnatrix.c 

int.matrix  *int_new_matrix(int  rows,  int  cols,  int  type) 

description:  Allocates  memory  for  a  matrix  with  dimension  rows  and  cols  and  of  type  type 
(CMPLX  or  REAL).  Note  that  it  is  the  user’s  responsibility  to  free  this 
matrix.  Use  intmew_temp()  to  allocate  memory  for  a  temporary  matrix 
(which  will  be  freed  by  kilLtempJist()  or  close_GM()). 
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arguments;  int  rows,  cols  Dimensions  of  matrix  to  be  allocated 

int  type  Type  of  matrix,  CMPLX  for  a  complex  matrix  and  REAL  for  a 
real  matrix 

returns:  int_matrix  *  Matrix  of  the  requested  size  and  type.  NULL  if  out  of 
memory. 

usage:  mat  =  int_new_matrix(3,  5,  CMPLX);  /*  Allocate  memory  for  a  3x5 
complex  matrix  */ 

see  also:  int_copy_matrix()  ,  int_new_temp  () ,  int_copy_temp()  , 
int_k;ill_raatrix()  , 

kill_temp_list  0 

note:  It  is  the  user’s  responsibility  to  free  any  matrix  that  has  been  allocated  with 
int_new_matrix()  (with  intJcill_matrix()). 

file:  int_ma.trix .  c 

int_matrix  *int_new_temp(int  rows,  int  cols,  int  type) 

description:  Allocates  memory  for  a  temporary  matrix  with  dimension  rows  and  cols  and 
of  type.  Note  that  it  is  the  user’s  responsibility  to  free  this  matrix.  To  free 
ALL  temporary  matrices,  use  kilLtempJist()  or  close_GM(). 

arguments:  int  rows,  cols  Dimensions  of  matrix  to  be  allocated. 

int  type  Type  of  matrix,  CMPLX  for  a  complex  matrix  and  REAL  for  a 
real  matrix. 
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returns;  int_matrix  *  Matrix  of  the  requested  size  and  type.  NULL  if  out  of 
memory. 

usage:  mat  =  int_new_t6mp(3,  5,  CMPLX) ;  //  Allocate  memory  for  a 
temporary  3x5  complex  matrix 

see  also;  int_kill_matrix()  ,  int.copy-matrixO  ,  int_copy_temp()  , 
int_new_matrix()  , 

kill_tempJ.ist  0 
file:  int_matrix.c 

int  int_op_check(int_matrix  *a,  int_matrix  *b) 

description:  Check  field  type  and  dimensions.  First  a  and  b  are  complex  promoted  by 
int_cmplx_promote().  Returns  COMP  if  a  and  b  have  the  same  dimensions. 
Returns  COMP  —  SCAL  if  either  a  or  b  is  a  scalar.  In  addition,  if  a  and  b 
are  complex,  CMPLX  is  OR  ed  to  the  returned  value,  otherwise  REAL  is  OR 
ed  to  the  returned  value.  Thus,  if  type  =  int_op-check(a,b),  then  (type  & 
CMPLX)  will  be  true  if  either  a  or  b  is  complex,  (type  &  REAL)  will  be  true 
if  both  a  and  b  are  real,  (type  k  COMP)  will  be  true  if  dimensions  match, 
(type  k  SCAL)  will  be  true  if  either  a  or  b  is  a  scalar. 

arguments:  int_matrix  *a,  *b  Matrices  to  be  checked 

returns:  int  The  bits  are  set  according  to  the  description  above. 

usage:  type  =  int_op_check(a,  b)  ;  /*  checks  dimensions  of  a,  b.  Bits  in 
type  will  be  set  in  type  according  to  the  description  above  */ 
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see  also;  int-cmplx-promoteO  ,  int_mul_c]ieck() 

note;  int_op_check()  is  used  by  int_add(),  int_pmul(),  int_pdiv().  A  scalar  is 
compatible  with  any  matrix. 

file;  int_matrix.c 

int.matrix  *int_pmul(int_matrix  *a,  int_matrix  *b) 

description;  Point  wise  multiplication  of  matrices  a  and  b. 

arguments:  int-juatirix  *a,  *b  Input  matrices. 

returns;  int_matrix  *  The  point  wise  product  of  a  and  b,  NULL  if  error. 

usage;  pprod  =  int_pmul(a,  b) ;  /*  pprod  =  a  .*  b 
matlab  equivalent; 

>>  pprod  =  a  .*  b;  */ 

file;  intjaatrix;  c 

void  int_printm(int .matrix  *mat) 

description;  Prints  an  integer  matrix  to  stdout  using  the  number  of  significant  digits  and 
output  style  set  by  init_print(). 

arguments;  int  jnatrix  ♦mat  Matrix  to  be  printed 


returns;  void 
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usage:  priiitm(Rxx) ;  //  prints  Rxx  to  stdout 
see  also:  init_print()  printmO 
file:  utils. c 

int_matrix  *int_range(INTTYPE  from,  INTTYPE  step,  INTTYPE  to) 

/' 

description:  Creates  a  vector  like  matlab’s  from:step:to.  If  step  is  0,  then  the  step  size  is 
set  to  1.  For  example,  int_range(l,  2,  7)  results  in  [1  3  5  7],  intj:ange(3,  0,  5) 
results  in  [3  4  5]. 

arguments:  INTTYPE  from  Start  value. 

INTTYPE  step  Step  size. 

INTTYPE  to  Stop  value. 

returns:  int .matrix  *  Vector  with  elements  starting  at  froni  and  stopping  at  to, 
spaced  by  step.  NULL  if  error. 

usage:  int_raiige(from,  step,  to);  //  from: step: to 
int .range (from,  0,  to);  //  from:to 

file:  int jtiatrix .  c 

int_matrix  *int_real(int_matrix  *mat) 

description:  Returns  a  matrix  containing  the  real  part  of  mat. 
arguments:  int unatrix  *mat  Input  matrix. 


NAWCADWAR-95005-4.5 


100 

returns:  intunatrix  *  Real  part  of  mat. 

usage:  real_part  =  int_real  (cmplxjnatrix) ;  /*  real_part  = 

Re  Ccmplx_matrix3 

matlab  equivalent: 

>>  real.part  =  real  (cmplxjnatrix) ;  */ 
file:  int jnatrix .  c 

int_matrix  *int_scl2mat(INTTYPE  re,  INTTYPE  im,  int  type); 

description:  Creates  a  1x1  matrix  from  the  scalar  (re  +  j^'^im),  if  type  is  CMPLX.  If  type  is 
REAL  the  imaginary  part  is  ignored. 

arguments:  INTTYPE  re  Real  part. 

INTTYPE  im  Imaginary  part 

returns:  int  jnatrix  *  1x1  matrix  with  the  element  (re  +  j*im).  NULL  if  error. 

usage:  scalarjnat  =  int_scal2mat (3,  2,  CMPLX);  //  scalarjnat (1 , 1)  =  3  + 
j*2 

scalarjnat  =  int_scal2mat (3,  2,  REAL);  //  scalarjnat (1 , 1)  =  3 
int_sub_matrix(int_matrix  *mat,  int_matrix  *rows,  int_matrix*  int.matrix  *cols) 

description:  Returns  the  rows  and  columns  of  mat  that  are  pointed  out  by  (the  matrices) 
rows  and  cols.  The  elements  of  rows  and  cols  are  used  to  pick  out  rows  and 
columns,  respectively.  That  is,  suppose  mat  =  [1  2  3;  4  5  6;  7  8  9],  and  rows  = 
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[3  1]  and  cols  =  [2],  then  the  result  would  be  a  matrix  of  the  form  [8;  2]  (that 
is,  elements  (3,2)  and  (1,2)).  This  is  analogous  to  the  matlab  statement, 
mat(rows,  cols).  To  just  index  rows,  like  matlab’s  mat(rows,  :),  set  cols  to 
NULL.  Similarly,  to  just  index  columns,  like  matlab’s  mat(:,  cols),  set  rows  to 
NULL.  By  using  this  scheme  all  indexing  can  be  done  with  int^ub_matrix(). 

arguments:  intjuatrix  *mat  Matrix  to  be  indexed. 

int_matrix  *rows  Row  indexing  matrix, 

intjnatrix  *cols  Column  indexing  matrix. 

returns:  int_inatrix  *  The  indexed  input  matrix,  NULL  if  error. 

usage:  B  =  int _sub -matrix (mat ,  rows,  cols);  //  B  =  mat(rows,  cols) 

B  =  int_sub_matrix(mat ,  rows,  NULL);  //  B  =  mat(rows,  :) 

B  =  int -sub -matrix (mat ,  NULL,  cols);  /*  B  =  mat(:,  cols) 

matlab  equivalent : 

>>  B  =  mat (rows,  cols);  */ 

see  also:  int-index_rows  ()  ,  int-index-cols()  ,  int-index_rows-cols() 

note:  For  greatest  convenience,  use  int-sub-matrix()  for  all  indexing  purposes, 
file:  int.matrix.c 

int-matrix  *int_transp(int-matrix  *mat) 


NAWCADWAR-95005-4.5 


102 

description:  Returns  the  transpose  of  the  input  matrix.  Note:  does  not  conjugate 
elements.  Use  int_herm()  for  conjugate  transpose  (hermitian). 

arguments:  intuaatrix  *mat  Input  matrix. 

returns:  intjnatrix  *  The  transposed  input  matrix,  NULL  if  error. 

usage:  tran_A  =  iiit_transp(A)  ;  /♦  tran_A  =  A.’ 
matlab  equivalent: 

»  A  =  A. y.  Note  not  that  is,  does  not  conjugate  */ 
see  also:  intJiermO 

file:  int-Hiatrix .  c 


void  kill_matrix(matrix  *mat) 

description:  Frees  memory  used  by  mat.  Note  that  mat  should  have  been  allocated  with 
new_matrix()  or  copy_matrix().  If  mat  is  a  temporary  matrix,  that  is, 
allocated  explicitly  or  implicitly  with  new_temp()  or  copy_temp(),  then 
kilLtempJist()  should  be  used. 

arguments:  matrix  ♦mat  Matrix  to  be  freed,  must  have  been  allocated  by 
new_matri.x()  or  copy_matrix() 

returns:  nothing 


usage:  kill_matrix(A) ;  //  Free  memory  allocated  for  A 
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see  also; 


note: 

file: 


description: 


arguments; 


returns; 


usage: 


see  also: 


file; 
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copyjnatrixO  ,  new_temp(),  copy_temp()  ,  new_naatrix()  , 
kill-temp -list  0 

The  matrix  mat  must  have  been  allocated  by  new_matrix()  or  copy-matrix() 
matrix. c 


void  kill-temp Jist (void) 

Frees  memory  allocated  by  ALL  temporary  matrices.  The  temporary  matrices 
are  allocated,  explicitly  or  implicitly,  with  new_temp()  or  copy  .temp. 

none 

nothing 

kill-temp-list  0  ;  //  Free  memory  allocated  by  all  temporary 
matrices 

kill-matrixO  ,  copyjnatrixO  ,  new.tempO,  new_matrix()  , 
copy.tempO,  close.GMO 

matrix. c 

matrix  *LV2GM(TDlHdl  re,  TDlHdl  im) 

Copies  Labview  matrices  to  Gauss  Machine  (GM)  matrices.  No  explicit 
memory  allocation  is  necessary.  The  memory  management  is  handled 
internally. 
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arguments:  TDlHdl  re,  im  Handles  to  Labview  matrix  data  structures. 

returns;  matrix  *  Gauss  machine  matrix  with  data  from  the  input  arguments  re 
and  im. 

usage:  A  =  LV2GM(A_real ,  A_imag) ;  /*  Create  a  GM  matrix  with  real  part 
data  from  A_real  and  imaginary  data  from  A_imag.  */ 

see  also:  GM2LV() 

file:  utils. c 

int  maxJndex(matrix  *mat) 
description:  Return  index  to  maximal  element  of  mat. 
arguments:  matrix  *mat  Input  matrix. 

returns;  int  Index  to  the  maximal  element  of  mat. 
usage:  max_i  =  max_index(mat) ;  /*  max(mat)  =  mat  [maxJ.] 

# 

mat 1 ab  equivalent: 

>>  max_i  =  find  (mat  ==  max(mat(:)))  ;  */ 
file:  matrix.c 

matrix  *mfixed2float(int_matrix  *mat) 

description:  Converts  a  fixed-point  matrix  to  floating-point  using  the  word  length  and 
number  of  fractional  bits  set  by  init_conv(). 
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arguments:  int_matrix  *mat  Fixed-point  matrix  to  be  converted  to  floating-point. 

returns:  matrix  *  Floating-point  matrix  corresponding  to  the  flxed-point  matrix. 

usage:  int_raatrix  *int_Rxx; 
matrix  *Rxx; 

Rxx  =  mfixed2float(int_Rxx)  ;  //  convert  intJlxx  to  floating-point 
see  also:  init_conv(),  f  ixed2f loat ()  ,  mfloat2f ixedO  ,  f  ixed2float  () 
file:  conv.c 

int_matrix  *mfloat2fixed(matrix  *mat) 

description:  Converts  a  floating-point  matrix  to  fixed-point  using  the  word  length  and 
number  of  fractional  bits  set  by  init_conv(). 

arguments:  matrix  *mat  Floating-point  matrix  to  be  converted  .to  fixed-point. 

returns:  intjnatrix  *  Integer  matrix  containing  the  fixed-point  representation  of 
the  input  floating-point  matrix. 

usage:  intjnatrix  *int_Rxx; 
matrix  *Rxx; 

Rxx  =  mf  ixed2float(int_Rxx) ;  //  convert  intJlxx  to  floating-point 
see  also:  init_conv(),  fixed2float()  ,  mfloat2f  ixed()  ,  f ixed2float  () 


file:  conv.c 
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matrix  *mfioor(matrix  *mat) 

description;  Returns  a  matrix  with  truncated  elements  of  mat,  that  is,  performs  the  floor 
function  (rounding  to  closest  smallest  integer)  on  mat. 

arguments:  matrix  *mat  Input  matrix. 

returns:  matrix  *  The  “floored”  input  matrix,  NULL  if  error. 

usage:  int_A  =  mfloor(A)  ;  /*  intjl  =  floor  (A) 
matlab  equivalent: 

>>  int_A  =  floor(A);  */ 

note;  The  output  is  still  a  floating  point  matrix,  even  though  the  elements  are 
truncated  to  integers. 

file:  matrix,  c 

int  minJindex(matrix  *mat) 
description:  Return  index  to  minimal  element  of  mat. 
arguments;  matrix  *mat  Input  matrix. 

returns;  int  Index  to  the  minimal  element  of  mat. 

usage;  min_i  =  min_index(mat)  ;  /*  min(mat)  =  mat  [min_i] 
matlab  equivalent: 


>>  min_i  =  find (mat  ==  min(mat ( ; ) ) ) ;  */ 
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file:  matrix. c 

matrix  *minus  (matrix  *mat) 

description.:  Returns  a  matrix  equal  to  the  negative  of  input  matrix, 
arguments:  matrix  *mat  Input  matrix. 

returns:  matrix  *  The  negated  input  matrix. 

usage:  minus_A  =  minus  (A);  /*  minus_A  =  “A 
matlab  equivalent: 

>>  minusJl  =  -A;  */ 

file:  matrix.c 

matrix  *mul (matrix  *a,  matrix  *b) 

description:  Multiplication  of  matrices  a  and  b. 
arguments:  matrix  *a,  *b  Input  matrices. 

returns:  matrix  *  The  product  of  a  and  b,  NULL  if  error. 

usage:  prod  =  pmul(a,  b)  ;  /*  pprod  =  a  *  b 
matlab  equivalent: 

>>  prod  =  a  *  b;  */ 

file:  matrix.c 
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int  muLcheck(matrix  *a,  matrix  *b) 

description;  Check  field  type  and  dimensions.  First  a  and  b  are  complex  promoted  by 
cmplx_promote().  Returns  COMP  if  a  and  b  have  the  same  dimensions. 
Returns  COMP  —  SCAL  if  either  a  or  b  is  a  scalar.  In  addition,  if  a  and  b 
are  complex,  CMPLX  is  OR  ed  to  the  returned  value,  otherwise  REAL  is  OR 
ed  to  the  returned  value.  Thus,  if  type  =  op  .check  (a,b),  then  (type  k 
CMPLX)  will  be  true  if  either  a  or  b  is  complex,  (type  &  REAL)  will  be  true 
if  both  a  and  b  are  real,  (type  k  COMP)  will  be  true  if  dimensions  match  or  if 
a  or  b  is  a  scalar,  (type  k  SCAL)  will  be  true  if  a  or  b  is  a  scalar. 


arguments:  matrix  *a,  *b  matrices  to  be  checked 


returns:  int  The  bits  are  set  according  to  the  description  above. 

usage:  type  =  mul_check(a,  b)  ;  /*  checks  dimensions  of  a,  b.  Bits  in 
type  will  be  set  in  type  according  to  the  description  above  */ 

see  also;  cmplx_promote()  ,  op_check() 

note:  muLcheck()  is  used  by  mul().  A  scalar  is  compatible  with  any  matrix. 


file:  matrix.c 

matrix  *new_matrix(int  rows,  int  cols,  int  type) 

description;  Allocates  memory  for  a  matrix  with  dimension  rows  and  cols  and  of  type 
(CMPLX  or  REAL).  Note  that  it  is  the  user’s  responsibility  to  free  this 
matrix.  Use  new_temp()  to  allocate  memory  for  a  temporary  matrix  (which 
will  be  freed  by  kilLtempJist()  or  close_GM()). 
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arguments:  int  rows ,  cols  Dimensions  of  matrix  to  be  allocated 

int  type  Type  of  matrix,  CMPLX  for  a  complex  matrix  and  REAL  for  a 
real  matrix 

returns;  matrix  *  Matrix  of  the  requested  size  and  type.  NULL  if  out  of  memory. 

usage:  mat  =  new_matrix(3 ,  5,  CMPLX);  /*  Allocate  memory  for  a  3x5 
complex  matrix  */ 

see  also:  copynaatrixO  ,  new_temp(),  copy_temp() ,  kill-matrix ()  , 
kill_temp_list() 

note:  It  is  the  user’s  responsibility  to  free  any  matrix  that  has  been  allocated  with 
new_matrix()  (with  killjmatrix()). 

file:  matrix. c 

matrix  *new_temp(int  rows,  int  cols,  int  type) 

description:  Allocates  memory  for  a  temporary  matrix  with  dimension  rows  and  cols  and 
of  type.  Note  that  it  is  the  user’s  responsibility  to  free  this  matrix.  To  free 
ALL  temporary  matrices,  use  kilLtempJist()  or  close_GM(). 

arguments:  int  rows,  cols  Dimensions  of  matrix  to  be  allocated. 

int  type  Type  of  matrix,  CMPLX  for  a  complex  matrix  and  REAL  for  a 
real  matrix. 


returns:  matrix  * 


Matrix  of  the  requested  size  and  type.  NULL  if  out  of  memory. 
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usage:  mat  =  new_temp(3,  5,  CMPLX) ;  //  Allocate  memory  for  a  temporary 
3x5  complex  matrix 

see  also;  kill-matrix ()  ,  copy_matrix() ,  copy_temp(),  r.ew_matrix()  , 
kill-temp-list  0 

file:  matrix. c 

int  op_check(matrix  *a,  matrix  *b) 


description:  Check  field  type  and  dimensions.  First  a  and  b  are  complex  promoted  by 
cmplx_promote().  Returns  COMP  if  a  and  b  have  the  same  dimensions. 
Returns  COMP  —  SC.4L  if  either  a  or  b  is  a  scalar.  In  addition,  if  a  and  b 
are  complex,  CMPLX  is  OR  ed  to  the  returned  value,  otherwise  REAL  is  OR 
ed  to  the  returned  value.  Thus,  if  type  =  op_check(a,b),  then  (type  & 
CMPLX)  will  be  true  if  either  a  or  b  is  complex,  (type  &  REAL)  will  be  true 
if  both  a  and  b  are  real,  (type  k  COMP)  will  be  true  if  dimensions  match, 
(type  k  SCAL)  will  be  true  if  either  a  or  b  is  a  scalar. 

arguments:  matrix  *b  Matrices  to  be  checked 


returns:  int  The  bits  are  set  according  to  the  description  above. 


usage:  type  =  op_clieck(a,  b)  ;  /*  checks  dimensions  of  a,  b.  Bits  in 
type  will  be  set  in  type  according  to  the  description  above  */ 


see  also:  cmplx_promote()  ,  mul_check() 
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note:  op_clieck()  is  used  by  add(),  pinul(),  pdiv().  A  scalar  is  compatible  with  any 
matrix. 

file:  matrix. c 

matrix  *pdiv(matrix  *a,  matrix  *b) 

description:  Point  wise  division  of  matrices  a  and  b. 
arguments:  matrix  *a,  *b  Input  matrices. 

returns:  matrix  *  The  point  wise  division  of  a  and  b,  NULL  if  error. 

usage:  pprod  =  pdiv(a,  b) ;  /*  pprod  =  a  ./  b 
matlab  equivalent: 

>>  pprod  =  a  ./  b;  */ 

file:  matrix .  c 

matrix  *pmul (matrix  *a,  matrix  *b) 
description:  Point  wise  multiplication  of  matrices  a  and  b. 
arguments:  matrix  *a,  *b  Input  matrices. 

returns:  matrix  *  The  point  wise  product  of  a  and  b,  NULL  if  error. 

usage:  pprod  =  pmul(a,  b)  ;  /*  pprod  =  a  .*  b 
matlab  equivalent : 

»  pprod  =  a  .*  b;  */ 
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file:  matrix .  c 


void  print_error(void) 


description:  Prints  the  global  error  string  to  stderr. 
arguments:  none 
,  returns:  nothing 

usage:  print_error() ;  //  Print  error  string  to  stderr. 
see  also:  get_error()  ,  clear_error()  ,  errorO 
file:  utils. c 


void  printm(matrix  *mat) 


description:  Prints  a  matrix  to  stdout  using  the  number  of  significant  digits  and  output 
style  set  by  init_print(). 

arguments:  matrix  *mat  Matrix  to  be  printed 

returns:  void 


usage:  printm(Rxx);  //  prints  Rxx  to  stdout 
see  also:  init_print()  int_printm() 


file:  utils. c 
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matrix  *range(FLOATTYPE  from,  FLOATTYPE  step,  FLOATTYPE  to) 

description;  Creates  a  vector  like  matlab’s  from:step:to.  If  step  is  0,  then  the  step  size  is 
set  to  1.  For  example,  range(l,  2,  7)  results  in  [1  3  5  7],  range(3,  0,  5)  results 
in  [3  4  5]. 

arguments:  FLOATTYPE  from  Start  value. 

FLOATTYPE  step  Step  size. 

FLOATTYPE  to  Stop  value. 

returns:  matrix  *  Vector  with  elements  starting  at  from  and  stopping  at  to, 
spaced  by  step.  NULL  if  error. 

usage;  range(from,  step,  to);  //  from:step:to 
rangeCfrom,  0,  to);  //  from:to 

file:  matrix. c 

matrix  *real(matrix  *mat) 

description:  Returns  a  matrix  containing  the  real  part  of  mat. 

arguments:  matrix  *mat  Input  matrix, 
returns;  matrix  *  Real  part  of  mat. 

usage:  real_part  =  real(cmplxjnatrix) ;  /*  real_part  =  Re  Ccmplx_matrix] 
matlab  equivalent: 


>>  real_part  =  real(cmplx_matrix)  ;  */ 
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file;  matrix.c 

matrix  *scl2mat(double  re,  double  im,  int  type); 

description:  Creates  a  1x1  matrix  from  the  scalar  (re  +  j*im),  if  type  is  CMPLX.  If  type  is 
REAL  the  imaginary  part  is  ignored. 

arguments;  FLOATTYPE  re  Real  part. 

FLOATTYPE  im  Imaginary  part 

returns:  matrix  *  1x1  matrix  with  the  element  (re  +  j*im).  NULL  if  error. 

usage:  scalarnnat  =  scal2mat(3.14,  2.5,  CMPLX);  //  scalar nnat (1 , l)  = 

3.14  +  j*2.5 

scalarjnat  =  scal2mat (3 . 14 ,  2.5,  REAL);  //  scalar_mat (1 , 1)  -  3.14 
void  set_fname(char  *fname) 

description:  This  function  is  used  by  the  integer  matrix  algebra  routines.  When  entered 
these  routines  calls  set_fname()  with  their  own  function  names  as  arguments. 
set_fname()  will  store  the  current  routine’s  name  and  if  an  overflow/underflow 
is  detected  by  check(),  the  function  name  will  be  put  in  front  of  the  error 
message  produced  by  check().  That  is,  suppose  int_mul()  is  called,  then 
int_mul()  makes  the  call;  set_fname(int_mul :).  If  a  overflow  occurs  inside 
int-mul(),  check()  will  set  the  global  error  message  to  “int_mul; 
overfl.ow/underflow” .  See  check()  and  error()  for  more  details. 

arguments:  char  *fname  String  containing  prefix  to  error  messages  produced  by 


error 0 
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returns;  nothing 

usage:  set_fname (Function  neuae) ;  /*  error  messages  will  look  like: 
Function  name: ...  */ 

see  also:  errorO,  get_error(),  print_error() 
file:  conv .  c 

INTTYPE  check(INTTYPE  result) 

description:  Checks  to  if  the  result  of  an  operation  produces  an  overflow/underflow.  When 
doing  fixed-point  arithmetic  check()  will  inspect  the  current  word  length  to 
make  sure  that  result  is  inside  the  dynamic  range.  If  an  overflow  or  underflow 
occurs,  check()  will  call  error()  to  set  the  global  error  string.  Pre  pended  to 
the  error  message  is  the  string  set  by  set_fname().  That  is,  suppose  after  the 
call  set  Jname(int_pmul)  an  overflow  is  detected  by  check().  Then  the  global 
error  string  is  set  to  “in_pmul:  overflow/underflow”,  thereby  identifying  the 
routine  which  produced  the  overflow /underflow.  The  result  is  returned  modulo 
the  largest  number  that  can  be  represented  by  the  current  word  length.  That 
is,  if  no  overflow  or  underflow  occurs  the  result  is  returned  unchanged. 

arguments:  INTTYPE  result  Result  of  a  fixed-point  operation  that  is  to  be  checked 
for  overflow/underflow. 

returns:  INTTYPE  The  returned  value  is  result  mod  maxint,  where  maxint  is  the 
largest  number  representable  with  the  current  word  length. 
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usage;  INTTYPE  a,  b,  c;  c  =  check (a+b) ;  //  c  =  (a+b)  mod  maxint,  checks 
for  overflow 


see  also:  set_fname(),  errorO,  get_error()  ,  print-error () ,  init_conv() 
file;  conv.c 

matrix  *sub_matrix(matrix  *mat,  matrix  *rows,  matrix  *cols); 

description;  Returns  the  rows  and  columns  of  mat  that  are  pointed  out  by  (the  matrices) 
rows  and  cols.  The  elements  of  rows  and  cols  are  truncated  to  integers  (with 
mfloor())  and  are  used  to  pick  out  rows  and  columns,  respectively.  That  is, 
suppose  mat  =  [1  2  3;  4  5  6;  7  8  9],  and  rows  =  [3.14  1.99]  and  cols  =  [2.1], 
then  the  result  would  be  a  matrix  of  the  form  [8;  2]  (that  is,  elements  (3,2) 
and  (1,2)).  This  is  analogous  to  the  matlab  statement,  mat(rows,  cols).  To 
just  index  rows,  like  matlab’s  mat(rows,  :),  set  cols  to  NULL.  Similarly,  to  just 
index  columns,  like  matlab’s  mat(:,  cols),  set  rows  to  NULL.  By  using  this 
scheme  ail  indexing  can  be  done  with  sub_matrix(). 


arguments:  matrix  *mat 
matrix  *rows 
matrix  *cols 


Matrix  to  be  indexed. 

Row  indexing  matrix. 
Column  indexing  matri.x. 


returns:  matrix  *  The  indexed  input  matrix,  NULL  if  error. 


usage: 


B  =  sub-matrix (mat ,  rows,  cols);  //  B  =  mat(rows,  cols) 
B  =  sub-matrix (mat ,  rows,  NULL);  //  B  =  mat (rows,  :) 
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B  =  subjnatrixCmat ,  NULL,  cols);  /*  B  =  mat(;,  cols) 
matlab  equivalent; 

>>  B  =  mat (rows,  cols);  ♦/ 

see  also:  index_rows() ,  index_cols()  ,  index_rows_cols() 

note:  For  greatest  convenience,  use  sub_inatrix()  for  all  indexing  purposes. 

file:  matrix. c 

matrix  *transp  (matrix  *mat) 

description:  Returns  the  transpose  of  the  input  matrix.  Note:  does  not  conjugate 
elements.  Use  herm()  for  conjugate  transpose  (hermitian). 

arguments:  matrix  *mat  Input  matrix. 

returns:  matrix  *  The  transposed  input  matrix,  NULL  if  error. 

usage:  tran_A  =  transp(A);  /*  tranJi  =  A.’ 
matlab  equivalent: 

»  A  =  A.';  •/.  Note  .  ^  not  that  is,  does  not  conjugate  */ 
see  also:  herm() 


file:  matrix.c 
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Pin  Number  j  Signal  Name 

Description 

208—210 

BAO-2 

Board  address. 

211—213 

PAO-2 

Port  address. 

299 

XIW=^ 

X-bus  input  FIFO  write  signal. 

300 

YIW=^ 

Y-bus  FIFO  write  signal. 

301 

XOR* 

X-bus  output  FIFO  read  signal. 

302 

AROE’' 

Accumulator  to  X-bus  transport  enable. 

303 

XBOE=*= 

X-bus  transport  output  enable. 

304 

VECTORMODE 

Vector  mode  signal. 

305 

ROE=^ 

Adder  RAM  output  enable. 

306 

MROE* 

Multiplier  RAM  output  enable. 

307 

XIFLRT=^ 

X-bus  input  FIFO  restart. 

308 

XIR* 

X-bus  input  FIFO  read  signal. 

309 

YIFLRT=^ 

Y-bus  FIFO  restart. 

310 

y'ir* 

Y-bus  FIFO  read  signal. 

311 

XOFLRT’^ 

X-bus  output  FIFO  restart. 

312 

XOW=^ 

X-bus  output  FIFO  write  signal. 

313 

AREN* 

Accumulator  to  X-bus  latch  enable. 

314 

ARWE* 

Adder  RAM  w'rite  strobe. 

315 

SREN* 

Accumulator  latch  enable. 

316 

RESBWE* 

Residue  bus  write  enable. 

317 

RESBRE* 

Residue  bus  read  enable. 

318 

CLR" 

Processor  v/ide  clear  signal. 

319 

PREN* 

Product  latch  enable. 

320 

YBEN* 

Y-bus  transport  latch  enable. 

321 

XFEN* 

X-bus  to  multiplier  RAM  latch  enable. 

322 

XBEN* 

X-bus  transport  latch  enable. 

323 

MRWE* 

Multiplier  RAM  write  enable. 

324 

ARITHMODE 

Arithmetic  mode  signal. 

Table  6.1:  Gauss  Machine  Processor  Control  Signals 
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Chapter  7 
ALGORITHMS 

As  previously  stated,  the  Gauss  machine  is  designed  primarily  to  perform 
level  3  operations [11].  It  also  has  a  vector  mode  of  operation  which  handles  level 
2  and  level  1  operations  efficiently.  Some  algorithms  for  the  Gauss  machine  are 
described  below.  Although  the  Gauss  machine  operates  on  GEQRNS  operands,  the 
algorithms  are  discussed  using  the  familiar  notation  of  complex  numbers. 

7.1  Matrix  Product  Based  Algorithms 

This  section  describes  the  implementation  of  the  matrix  multiplication  operation  on 
the  Gauss  machine  and  implementation  of  algorithms  which  are  based  upon  matrix 
multiplication. 

7.1.1  Matrix  Multiplication 

If  A  G  and  B  e  then  AB  =  D  where  D  €  and  each 

dij  =  1^2=1  CLikbkj-  The  core  of  the  matrix  multiplication  is  the  multiply- accumulate 
operation. 

Suppose  we  wish  to  multiply  two  2x2  matrices.  The  data  are  presented  in  a 
sloped  data  front  on  the  X  and  Y  sides  of  the  array  and  the  results  are  accumulated 
in  place.  This  configuration  is  depicted  in  Figure  7.1.  Note  that  the  processors  are 
configured  as  simple  multiply-accumulate  units.  Each  clock  cycle,  the  sloped  A  and 
B  data  fronts  are  advanced  one  processing  element  to  the  right  and  up,  respectively, 
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and  the  input  operands  are  multiplied  and  accumulated. 

The  configuration  shown  in  Figure  7.1  assumes  that  the  array  elements  are  pre¬ 
initialized  to  zero.  The  leading  zeros  keep  the  array  initialized  to  zero  and  the  trailing 
zeros  maintain  the  results  while  the  computation  is  completed.  This  multiplication 
uses  2x2  input  matrices,  however,  it  can  be  extended  to  input  matrices  where  A  is 
2  X  n  and  B  is  n  x  2.  Matrix  multiplication  of  larger  arrays  may  be  achieved  by  using 
block  multiplication.  Systolic  arrays  which  use  in-place  accumulation  of  results  are 
well  suited  to  block  operations. 


0  a, 3 


0 


h„ 

0 


0 

6,3 

ha. 


Figure  7.1:  Example  of  Matrix  Multiplication 


The  computation  of  AB  where  A  and  B  are  of  arbitrary  dimensions  can 
be  performed  by  decomposing  A  into  blocks  of  two  rows  and  n  columns,  and  by 
decomposing  B  into  blocks  of  n  rows  and  two  columns.  This  decomposition  is  depicted 
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below: 


A  = 


As 


VA.  y 


B  =  (  Bi  Bs  Bs 


where  each  A^  €  and  each  B/  €  If  a  matrix  does  not  have  dimensions 

which  meet  the  multiple  of  three  rows  or  columns  requirements,  then  the  matrix  may¬ 
be  padded  with  zeros.  Each  of  these  matrix  block  products  requires  n  +  4  cycles  to 
complete  the  computation  and  two  cycles  to  remove  the  results  from  the  array.  The 
result  of  the  matrix  block  computation  is  a  2  x  2  matrix.  Thus  for  A  €  Qkxn 
B  G  the  number  of  cycles  required  to  complete  the  product  AB  is  given  by 


0(AB)  =  [k/2]\r/2]in  +  6), 


(7.1) 


where  f«]  represents  the  greatest  integer  or  ceiling  function.  Clearly  from  Equa¬ 
tion  7.1,  if  n  is  small  then  the  overhead  associated  with  the  time  required  to  shift 
data  out  and  the  zero  padding  becomes  significant.  As  n  — >•  1,  the  operation  de¬ 
generates  into  an  outer  product.  The  dynamic  range  requirements  for  the  matrix 
multiplication  are  determined  by  the  size  of  A  and  B,  and  the  dynamic  range  of  the 
data  in  the  matrices.  To  be  exact,  suppose  that  A  has  a  dynamic  range  of  p,  B  has 
a  dynamic  range  of  q,  and  the  dimension  quantity  n  is  as  given  above.  Then  the 
dynamic  range  requirements  for  the  product  AB  is  given  by 


Od(AB)  =  {p  +  q)  +  n-l. 


(7.2) 
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7.1.2  Discrete  Fourier  Transform 

The  DFT  may  be  easily  expressed  as  a  level  3  operation.  The  DFT  is  given  by  the 
following: 

•  '  .  X{k)  = 

n=0 

We  may  express  this  function  in  a  linear  algebraic  form  by  assigning  all  x(n) 
to  a  column  vector,  x  E  and  the  complex  exponential  to  a  Vandermonde 

matrix  W  E  where  W  is  given  by 


W  = 


1 

1 

1 

1 

^-3 

. . .  viz-O-v-i) 

w-^ 

W-^ 

.  .  .  ]4/-3{iV-l) 

Vy-2(iv-i) 

iy-3(N'-l) 

. . . 

Thus  the  DFT  of  x  is 

given  by 

X  =  W^x 


Where  X  E  Clearly  W  may  be  precomputed  and  its  form  depends 

upon  the  number  of  points  to  be  computed  and  the  dynamic  range  requirements  of  the 
problem.  Obviously,  since  the  Gauss  machine  performs  level  3  operations  at  greatest 
efidciency  when  the  dimensions  of  the  operand  matrices  are  multiples  of  two  it  may 
be  desirable  to  gang  three  DFTs  together  by  replacing  the  column  vector  x  with 
an  N  X  2  matrix  where  each  column  of  data  represents  a  vector  to  be  transformed. 
Additionally,  if  only  selected  frequency  bands  are  of  interest  then  the  DFT  need  only 
be  computed  for  those  bands. 
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7.1.3  Convolution  and  Correlation 

Like  the  DFT,  convolution  and  correlation  may  be  expressed  as  level  3  operations. 
Recall  that  discrete  correlation  and  convolution  are  given  by 

=  5^x(n)j/(n  +  t), 
y(r)  =  Y,x{n)y{T  -n), 

n 

respectively.  We  will  develop  the  correlation  example  here;  convolution  follows  di¬ 
rectly.  Let  X  and  y  be  data  sequences  of  length  N  and  M,  respectively.  The  correlation 
of  X  and  y  will  have  a  length  of  iV  -f  M  —  1 .  We  will  assign  the  sequence  x  to  a  row 
vector  X  €  given  by 


X 


Xi 


X2 


•  •  ■  XN-\  I  0  •  •  •  0  )  . 


The  sequence  y  is  used  to  build  a  matrix  Y  €  which  when  mul¬ 

tiplied  with  X  will  give  the  correlation,  sequence  of  x  and  y.  Since  x  is  a  row  vector 
we  would,  like  the  columns  of  Y  to  be  shifted  versions  of  the  sequence  y.  Assuming 
y  =  {j/0,  •  •  • , yM-i],  then  the  matrix  Y  would  have  the  form 


'  VM-l 

yM-2 

yM-3 

...  0 

0 

0  \ 

0 

J/M-l 

yM-2 

...  0 

0 

0 

0 

0 

yM-i 

...  0 

0 

0 

0 

0 

0 

•••  0 

0 

0 

•••  yi 

0 

0 

0 

0 

0 

...  y2 

yi 

0 

0 

0 

0 

•••  yz 

y2 

yi  / 

Thus,  we  can  see  that  the  product  xY  will  produce  the  correlation  sequence  of  x  and 


y.  The  above  form  of  the  correlation  is  suboptimal  in  that  it  uses  level  2  operations  to 
perform  the  correlation  operation.  Optimal  performance  is  obtained  by  utilizing  level 
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3  operations  to  perform  the  correlation.  We  will  form  a  new  matrix  X  € 
which  contains  a  shifted  version  of  the  row  vector  x: 

^  /  Xo  Xi  X2  ■  ■  ■  x/v-i  0  0  •  •  ■  0 

y  0  Xo  Xi  X2  ■  ■  ■  Xa/_i  0  •  •  •  0 

The  form  of  the  matrix  X  requires  that  the  form  of  Y  be  modified  so  that  it 
reflects  the  shifts  in  X.  The  first  column  of  the  new  version  of  Y,  Y',  will  produce 
the  first  three  elements  of  the  correlation  sequence;  the  second  column  will  produce 
the  next  three,  and  so  forth.  The  form  of  Y'  is  given  as 


^  yM-3 

2/M-6 

...  0 

0  \ 

2/M- 2 

yM-5 

...  0 

0 

2/M-X 

2/M-4 

...  0 

0 

0 

yM-z 

...  0 

0 

0 

2/M- 2 

...  0 

0 

0 

2/M-l 

...  0 

0 

0 

0 

0 

0 

0 

0 

•••  yi 

0 

0 

0 

...  y. 

0 

0 

0 

•••  2/3 

0 

0 

0 

•••  2/4 

2/1 

0 

0 

•••  2/5 

2/2 

0 

0 

•••  2/6 

2/3  / 

The  product  has  the  form  XY'  €  q‘2>:1{n+m-i)/2]_  Xhis  level  3  form  of 

the  correlation  operation  executes  two  times  faster  than  the  level  2  version,  and 
the  computational  speed  of  the  level  3  algorithm  will  grow  geometrically  with  N 
for  axi  N  X  N  array,  while  the  level  2  version  will  only  have  a  linear  grov/th  of  the 
computational  speed  on  the  same  array.  Additionally,  since  Y'  is  banded  the  structure 
can  be  exploited  to  avoid  mass  multiplication  by  zeros. 
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7.2  Vector  Mode  Algorithms 

While  many  algorithms  may  be  expressed  as  level  3  operations,  there  are  several  oper¬ 
ations  which  may  not  be  performed  efficiently  on  the  Gauss  machine  while  operating 
in  systolic  mode.  In  order  to  improve  this  situation,  an  architectural  enhancement 
was  made  to  allow  the  Gauss  machine  to  operate  in  vector  mode.  The  vector  mode 
of  operation  uses  a  subset  of  the  Gauss  machine’s  processing  elements  and  a  mini¬ 
mal  amount  of  additional  hardware  to  form  the  vector  processor.  See  Figure  6.3  and 
Figure  6.4. 

7.2.1  Vector  Addition 

A  common  operation  is  the  addition  of  two  vectors.  While  the  systolic  mode  of 
operation  can  be  used  accumulate  two  vectors  together,  it  is  very  inefficient.  Let 
X,  y  €  be  two  vectors  which  are  to  be  added.  In  order  to  add  them  in  the  systolic 
mode  of  operation  of  the  array,  they  are  appended  so  as  to  form  a  matrix  Z  € 
such  that 

Z  =  (xly). 

The  matrix  Z  is  then  multiplied  by  the  matrix  (11)  to  form  the  sum  of  the  two  vectors: 

X  -t-  y  =  (11)  Z. 

This  technique  may  be  extended  to  the  accumulation  of  K  vectors,  leading  to  the 
form 

K-l 

Y]  Xi  =  (111  •  •  •  1)  (Xo|Xi|X2|  •  •  •  xa'-i)  . 

V-  . — y 

.  ^ 
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From  Equation  7.1  we  know  that  the  number  of  cycles  required  to  complete  the 
product  is 

\K|2^  {N  +  6) , 


which  produces  a  total  of  [K  —  1)  N  complex  addition  operations.  This  leads  to  an 
efficiency  metric  for  systolic  mode  vector  addition  given  by 


7as 


{K  -  1)  N 
[Kii\  {N  +  6) 


complex  additions  per  cycle. 


In  the  vector  mode  of  addition,  the  summands  are  accumulated  after  being 
multiplied  by  one.  The  result  is  that  the  number  of  cycles  required  for  the  addition 
of  K  vectors  of  length  N  is  given  by 


KN  +  .3, 


thus  leading  to  an  efficiencv  metric  of 

O  */ 


TlAV 


2  {K  -  1)  N 
KN  +  3 


complex  additions  per  cycle, 


where  the  factor  of  2  is  a  result  of  operating  two  PEs  in  tandem  as  vector  accumu¬ 
lators.  For  large  iV,  and  K  even,  -q^s  ~  Vav-  However,  for  N  large  and  K  odd, 
then 

tIav  _  K  +  I 
Vas  K 

In  general,  we  would  e.xpect  the  vector  method  to  have  slightly  better  performance 
than  the  systolic  method. 


7.2.2  Pointwise  Vector  Multiplication 

Pointwise  multiplication  of  vectors  is  an  important  operation  in  signal  processing 
applications.  Pointwise  multiplication  of  vectors  is  used  to  window  vectors,  and  to 
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scale  a  vector.  In  systolic  mode,  a  vector  of  length  N  may  be  pointwise  multiplied 
by  another  vector  by  taking  the  second  vector  and  placing  it  on  the  diagonal  of  an 
N'  X  N  matrix  of  zeros  and  then  multiplying  it  with  the  first  vector  as  follows.  Suppose 
X,  y  €  C^.  Then  the  pointwise  vector  product  (denoted  by  .*)  of  these  two  vectors 
is 


'  Xo 

0 

0 

•••  0  \ 

0 

Xi 

0 

...  •  0 

0 

0 

X2 

0 

^  0 

0 

0 

•  •  •  ^N-l  / 

This  expression  may  be  evaluated  in  a  manner  which  reduces  the  obvious  large  order 
of  computation  by  just  producing  the  block  matrix  products  of  the  vector  and  the 
2x2  submatrices  centered  along  the  diagonal.  This  produces  an  expression  for  the 
number  of  cycles  required  to  execute  the  pointwise  vector  product  given  as  |'iV/2]8 
cycles.  Thus,  since  this  is  the  number  of  cycles  required  to  execute  N  multiplications, 
the  efficiency  metric  is  given  as 


^^■5  ~  TTTToTo  multiplications  per  cycle. 

|iV/2|8 


In  vector  mode,  the  two  vector  PEs  may  multiply  pairs  of  multiplicands  in  a  pipelined 
manner,  one  product  per  cycle  per  PE.  Thus,  it  requires  ["A^/2]  cycles  to  pointwise 
multiply  two  vectors  of  length  N.  This  leads  to  an  efficiency  metric  of 


7)mv  =  -p^y^complex  multiplications  per  cycle. 


For  large  N,  the  vector  mode  of  operation  is  approximately  eight  times  faster  than 
the  systolic  mode  of  operation. 
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7.3  QR  Decomposition 

.A.n  important  application  of  tlie  RNS  is  the  solution  of  linear  equations  of  the  form 

Ax  =  b. 

Methods  such  as  Gaussian  elimination,  while  amenable  to  implementation  on  a  vector 
machine,  are  not  as  robust  as  the  QR  decomposition  (QRD).  The  QR  decomposition 
is  given  below. 

Theorem  2  (QR  Factorization)  If  A  E  of  Tank  n,  then  A  can  he  factored 

into  a  ■product  QR,  where  Q  €  and  is  a  matrix  with  orthonormal  columns, 

and  R  €  and  is  upper  triangular  and  invertible. 

The  (QRD)  can  be  performed  efficiently  in  the  RNS  using  the  Householder  re¬ 
flection.  The  Householder  reflection  is  preferable  over  the  Givens  rotation  since  it  does 
not  contain  transcendental  functions.  Since  the  RNS  is  a  division-free  integer  system 
of  arithmetic,  it  cannot  compute  transcendental  functions  efficiently.  Additionally, 
Givens  rotations  suffer  from  potential  finite-precision  error  conditions  to  which  the 
Householder  reflections  can  be  made  immune.  Finally,  the  Householder  reflection  is 
inner-product  rich,  thus  making  it  ideal  for  Gauss  machine  implementation. 

7.3.1  Householder  Reflections 

The  Householder  reflection  is  an  orthogonal  vector  transformation  which  is  used  to 
selectively  introduce  zeros  in  a  vector  by  reflecting  the  vector  through  a  plane.  In 
general,  the  Householder  reflection  is  very  efficient  when  used  to  introduce  a  large 
number  of  zeros  into  a  vector. 
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The  Householder  reflection  introduces  zeros  into  a  vector  x  ^  0  via  an  orthog¬ 
onal  transformation.  The  transformation  matrix,  H  is  defined  by 


where  v,  the  Householder  vector  is  defined  by 

V  =  x±  ||x||2ei.  (7.3) 


When  the  Householder  matrix  is  applied  to  the  vector  x,  we  arrive  at 

Hx  =  -  2^  j  X  =  T  11x112  ei. 

In  computing  the  Householder  vector,  v,  we  may  choose  to  use  either  of  the  forms 

V  =  x-F  llx|l2ei,  or 
v  =  x-  llx|l2ea. 

It  is  desirable  to  keep  the  2-norm  of  the  Householder  vector  from  becoming  small' 
since  it  would  result  in  the  scalar  vector  2/ v^v  from  Equation  7.3  having  a  large 
relative  error.  Thus  we  may  choose  v  in  such  a  way  as  to  maximize  the  2-norm  of  v: 


V  =  x-j-sign(xi)  11x112  61. 

Since  the  RNS  is  a  division-free  system  of  arithmetic,  reduction  of  division  operations 
is  attractive.  Usually,  when  the  Householder  transform  is  used,  it  is  typically  used  era 
masse.  Thus,  it  is  desirable  to  maintain  the  individual  Householder  transform  matrix 
as  a  quotient  of  the  form 

v^vl  —  2vv^ 
v^v  ’ 
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leading  to  the  form 

(vl-v.H'). 

where 


H'  =  v^vH 

=  v^vl  —  2vv^.  (7.4) 

This  form  avoids  division,  at  the  expense  of  consumption  of  dynamic  range.  In 
particular,  if  x  is  of  length  N,  and  the  dynamic  range  of  the  elements  of  x  is  p,  then 
the  dynamic  range  of  v  is  (N  +  l)p.  From  this  we  have  the  dynamic  range  of  v^v 
given  by  (N  +  l)p  N  —  1.  Assuming  that  N  >  2,  then  we  may  approximate  the 
dynamic  range  of  H'  as  (N  +  l)p  +  A"  —  1.  The  next  section  discusses  the  application 
of  the  Householder  transform  to  the  problem  of  the  QRD. 

7.3.2  Householder  QR  Factorization 

The  previous  section  introduced  the  use  of  the  Householder  transform  for  the  intro¬ 
duction  of  zeros  into  a  vector.  By  repeated  application  of  the  Householder  transfor¬ 
mation,  we  may  decompose  a  matrix  A  into  an  orthogonal  matrix  and  an  upper-right 
triangular  matrix,  as  discussed  in  Theorem  2  in  Section  7.3.  The  following  discussion 
will  examine  the  implementation  of  the  QRD  using  the  Householder  transformation, 
with  special  emphasis  on  the  implications  of  using  the  transform  on  the  Gauss  ma¬ 
chine. 

Suppose  we  have  A  6  and  wish  to  produce  the  QR  decomposition  of 

A.  Then  we  must  generate  a  series  of  orthogonal  transforms  which,  when  applied 
to  A,  will  reduce  A  to  upper-right  triangular  form.  Define  a  series  of  orthogonal 
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transforms 

where  I,  is  the  identity  matrix  of  order  i,  and  is  of  the  form  of  Equation  7.4, 

jj'  —  (”^-5) 

where  is  defined  to  be  the  sub-diagonal  entries  of  the  ith  column  of  A.  Thus,  we 
may  successively  apply  the  H.’s  to  A: 

HnH„-iHn-2  -  HiA, 

and  thus, 

A  =  QR, 

where 

H„H„_iH„_2  •  Hi 
n?=iv«2'v«  ■ 

7.3.3  Dynamic  Range  Requirements  of  the  Householder  QRD 

Since  an  overflow  condition  cannot  be  detected  in  an  RNS  system,  it  is  necessary 
to  determine  the  dynamic  range  requirements  of  a  given  algorithm  before  it  may  be 
used  with  confidence.  Computations  must  proceed  assuming  a  worst-case  set  of  input 
data,  unless,  some  occasional  error  is  acceptable. 

As  in  the  previous  section,  suppose  we  have  a  matrix  A  G  and  we 

truncate  A  to  some  finite  precision  where  we  may  represent  each  with  k  or  fewer 
bits,  for  all  i  G  {1,2,3, . . .  ,m},  j  G  {1,2,3, . . .  ,n}. 

To  determine  H'-  we  examine  Equation  7.5.  The  first  term  contains  an  inner 
product  which  acts  as  a  coefficient  to  an  identity  matrix.  The  vector  is  determined 


li  0 
0  H' 
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using  Equation  7.3.  The  dynamic  range  of  is  ^  +  1  bits  while  has  a  dynamic 
range  of  k  bits  for  all  j  E  {2, 3, 4, . . . ,  (m  —  i)}.  Thus  the  dynamic  range  of  the  inner 
product  of  Equation  7.5  is  2{k  +  1)  +  [(m  —  i  —  l)/3]. 

Proof: 

Let  V  6  R".  Then 

v^Y  =  vl  +  vl  +  vl  +  ---+vl 

where  Vi  is  known  to  have  a  dynamic  range  of  k  +  1  bits,  and  all  u,-  have  a  dynamic 
range  of  k  bits,  for  i  €  {1,  2, 3, . . . ,  n}.  Thus,  0  (uf)  =  2{k  +  1)  and  0  (vf)  =  2k. 
Examining  the  above  summation,  we  see  that  the  dynamic  range  is  easily  computed: 

2k+2  2k  2k  2k 

vl  +  yl  +  vl  _+  vl  H - . 

2/: 4*1 

N - ^ 

2^4-2 

^  ^  . 

(2/:+2)4-l 

This  leads  to  a  dynamic  range  bound  of  2{k  +  1)  +  \{n  —  l)/3]. 

The  second  term  of  Equation  7.5  is  a  scaled  outer  product.  Let  B  =  2vb')v(')^. 
Then  6n  has  dynamic  range  2{k  +  1)  +  1  -2k-\-Z  while  hip  and  hji  have  dynamic 
range  (A:  -f  1)  +  A:  +  1  =  2{k  +  1),  and  bjp  has  dynamic  range  ^  +  1  =  2^  +  1,  for  all 
j  7^  1,  and  all  p  ^  1.  To  summarize  these  findings,  the  dynamic  range  of  B  is  given 
as 


/  2A:  +  3 

2(^  +  1)  • 

••  2(^-  +  l) 

0d{^)  = 

2{k  +  1) 

2k  -1-1 

•  •  2k +  l 

(7.6) 

1  2(A:  +  1) 

2ic  -fl  •  ■ 

■  •  2k  j 

Finally,  the  two  terms  of  Equation  7.5  are  subtracted  leading  to  the  final  result 
for  the  dynamic  range  of  H'-.  Clearly,  since  the  first  term  is  a  scaled  identity  matrix, 
the  dynamic  range  of  the  off-diagonal  elements  will  be  as  given  in  Equation  7.6.  For 
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,  if  (m  —  i)  <  3  then  the  dynaxnic  range  is  2k  +  4,  else,  if  (m  —  i)  >  3  then  the 
dynamic  range  is  2{k  +  1)  +  f(^  —  0/^1*  remaining  diagonal  elements, 

j  ^  1,  the  dynamic  range  is  2{k  +  1)  +  [(m  —  i)/3] .  To  summarize, 


oc  (h:-)  = 


a,- 

2(^  +  1) 

.  2(fc-hl)\ 

2{k  +  1) 

hi 

2k +  l  ■■■  2k +  1 

• 

2k  1 

•  .  *  .  • 

i 

2jfc-bl 

2(i  +  l) 

2k +  1 

2k +  1  hi  / 

where 


_  f  2A;  +  4  (m  -  z)  <  3 

\  2(iS:  +  1)  +  [(^  -  0/31  (m-i)>3  ’ 


and6i  =  2(^  +  l)  +  r(m-i)/3l. 

Clearly,  the  dynamic  range  of  the  above  approach  quickly  gets  out  of  hand. 
An  alternative  approach  is  suggested  by  [11].  This  approach  relies  on  a  block  repre¬ 
sentation  and  is  given  below. 

Y  = 

for  j—2'.r 

z  _  -2(1  + 

W  =  [Wz] 

Y  =  [Yv(j’)] 

end 


Let  the  Householder  vectors  be  used  to  pre-generate 
Then  the  above  algorithm  is  modified  to  take  the  form  given  below. 

Y  = 

W  =  v(^) 
for  j=2:r 

z  =  (I  +  WY^)vW) 

W  =  [Wz] 

Y  =  [Yv(j)] 
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Clearly  the  modified  algorithm  is  relatively  rich  in  level  3  operations.  As  the 
index  j  increases,  the  order  of  computation  for  the  outer  product  WY^  increases 
as  the  number  of  columns  of  W  and  Y  increases,  and  thus  the  processor  utilization 
increases. 
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Chapter  8 

SUMMARY  AND  CONCLUSIONS 

8.1  Motivation 

There  is  a  demonstrable  need  for  high  speed  front-end  signal  processors  for  signal 
and  image  processing  applications.  There  exist  a  number  of  problems  {t-g-,  RADAR, 
communications,  video  processing)  which  demand  a  level  of  performance  which  ex¬ 
ceeds  the  capabilities  of  the  current  generation  of  DSP  microprocessors  by  an  order 
of  magnitude  or  more.  This  need  for  speed  cannot  exacerbate  existing  constraints 
on  size,  power,  reliability,  and  cost.  With  this  motivation  the  construction  of  a  pro¬ 
totype  array  of  processors  beised  upon  the  GEQRNS  was  undertaken.  The  goal  of 
this  prototype  was  to  demonstrate  that  an  array  of  RNS-based  processors  could  be 
used  to  obtdn  high  computational  throughputs  without  exacerbating  the  aforemen¬ 
tioned  problems.  The  Gauss  machine  was  constructed  using  discrete  components  as 
a  prototype  to  a  VLSI  implementation. 

Another  goal  of  the  Gauss  machine  was  to  demonstrate  that  an  array  processor 
could  be  constructed  which  would  be  applicable  to  a  rich  set  of  problems  and  thus 
demonstrate  that  a  technology  which  was  sub-optimal  in  the  architectural  sense  could 
be  used  for  a  variety  of  problems,  thus  affecting  a  savings  in  non-recurring  engineering 
costs  (NREs).  Most  signal  processing  problems  axe  rich  in  inner  products  which  may 
be  expressed  in  terms  of  level  1,  level  2,  or  level  3  operations.  The  Gauss  machine 
was  designed  to  achieve  a  high  level  of  efficiency  in  performing  level  3  operations,  and 
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a  lesser,  although  still  excellent,  throughput  in  level  2  and  level  1  operations.  Many 
signal  processing  problems  can  be  efficiently  stated  in  terms  of  level  3  operations,  and 
thus  this  bias  towards  level  3  operations  was  created. 

8.2  Results 

There  were  a  number  of  problems  which  had  to  be  solved  in  order  to  construct  the 
Gauss  machine.  Initially,  certain  problems  in  developing  an  experimental  environ¬ 
ment  were  identified.  These  problems  included  packaging  constraints,  flexibility,  and 
portability.  Packaging  constraints  were  solved  by  developing  our  own  prototyping 
environment,  the  InvestiGATOR.  The  InvestiGATOR  also  solved  the  problems  of 
portability  and  flexibility  by  incorporating  a  general  purpose  computer  based  upon 
the  Motorola  68030  microprocessor,  and  the  inclusion  of  the  SCSI  interface  for  high 
speed,  portable  communications,  and  the  RS-232C  interface  for  low  speed,  portable 
communications.  The  InvestiG.A.TOR  solved  mechanical  packaging  constraints  en¬ 
countered  in  earlier  efforts  by  the  construction  of  a  large  backplane  based  system. 
The  backplane  includes  broadcast  and  near-neighbor  communications  making  it  suit¬ 
able  for  a  variety  of  prototyping  tasks.  Additionally,  mechanical  constraints  were 
reduced  to  two  dimensions  (thickness  and  length)  from  the  three  dimensions  (thick¬ 
ness,  length,  and  height)  found  in  conventional  environments. 

The  Gauss  machine  was  constructed  on  six  boards  which  reside  on  the  Investi¬ 
GATOR  backplane.  Each  of  these  six  boards  has  a  2  x  2  array  of  seven-bit  GEQRNS 
processors.  These  processors  were  constructed  using  low-cost,  commodity  discrete 
logic  components.  The  arithmetic  elements  were  implemented  with  low-cost  32K  x  8 
85  ns  SRAM.  The  arithmetic  elements  (SRAMs)  are  the  limiting  factor  in  the  speed 
of  the  system:  the  85  ns  SRAMs  are  suitable  for  a  10  MHz  clock  rate,  while  35  ns 
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SRAMs  would  be  suitable  for  a  greater  than  20  MHz  clock  rate,  and  15  ns  SRAMs 
could  be  used  to  generate  a  clock  rate  of  50  MHz.  At  the  10  MHz  clock  rate,  the 
array  achieves  an  equivalent  peak  arithmetic  rate  of  320  million  operations  per  second 
when  performing  complex  arithmetic,  compared  with  conventional  processors.  Each 
of  the  processor  elements  on  the  board  occupies  approximately  4.4  in^  of  board  area 
and  is  a  discrete  implementation  of  a  structure  which  occupies  only  approximately 
2  mm^  when  implemented  in  the  MOSIS  2.0  /im  scalable  CMOS  process. 

The  six  processor  boards  may  be  configured  to  act  as  a  single  GEQRNS 
ajray  which  can  process  arithmetic  word  widths  of  approximately  twenty-one  bits 
(20.25  bits,  or  122  dB).  Alternately,  the  Gauss  machine  may  be  configured  as  a  single 
conventional  RNS  array  processor  with  a  dynamic  range  of  approximately  thirty-three 
bits.  Additionally,  the  array  processor  may  be  configured  to  operate  as  a  vector  pro¬ 
cessor  using  a  subset  of  the  processing  elements  in  the  array.  While  the  whole  array  is 
ideal  for  level  3  operations,  it  cannot  perform  level  2  and  level  1  operations  efficiently. 
To  solve  this  problem,  a  vector  sub-processor  was  carved  out  of  the  array.  The  vector 
sub-processor  can  be  used  to  efficiently  perform  level  2  ajad  level  1  operations  such 
as  matrix-vector,  and  vector-vector  inner  products,  as  well  as  pointwise  addition  and 
multiplication.  In  the  vector  processor  mode,  the  peak  arithmetic  rate  is  equivalent 
to  160  million  operations  per  second  when  performing  complex  arithmetic,  compared 
to  conventional  processors. 

One  of  the  original  goals  of  the  project  that  was  dropped  due  to  budgetary 
constraints  was  the  construction  of  forward  conversion  and  CRT  engine  in  hardware. 
The  hardware  implementation  was  replaced  by  a  high  performance  software  imple¬ 
mentation  which  runs  on  the  InvestiGATOR  communication  processor.  While  this 
loss  does  prevent  the  Gauss  machine  from  being  used  for  high  speed  real-time  appli- 
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cations,  it  does  not  seriously  interfere  with  the  goals  to  be  demonstrated  since  the 
Gauss  machine  processor  array  does  demonstrate  high  arithmetic  rates. 

In  conclusion,  the  Gauss  machine  demonstrates  a  high  performance,  high  RNS 
content  architecture  for  signal  processing  applications.  The  Gauss  machine  performs 
at  an  equivalent  peak  processing  rate  of  320  million  operations  per  second  when 
performing  complex  arithmetic,  compared  to  conventional  processors.  The  Gauss 
machine  demonstrates  fault  tolerance  at  an  architectural  level  due  to  the  properties 
of  the  RNS.  This  discrete  implementation  of  the  Gauss  machine  demonstrates  a  cos'; 
parity  with  conventional,  -off  the  shelf  technologies,  however,  substantial  cost  savings 
can  be  expected  in  a  VLSI  version  of  this  technology,  even  when  produced  for  rela¬ 
tively  short  production  runs.  The  Gauss  machine  also  demonstrates  an  architecture 
which  can  potentially  be  scaled  into  other  technologies  {e.g.^  ECL  and  GaAs)  to  pro¬ 
duce  performance  which  exceeds  that  of  the  Gauss  machine  by  an  order  of  magnitude 
or  more,  thus  yielding  performance  several  orders  of  magnitude  greater  than  that 
possible  with  conventional  signal  processing  technology. 
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INVESTIGATO  K'  SCI  I  i':M  A'flCS 
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Figure  A.2:  InvcstiC ATOR  SCRAM  Module 


NAWCADWAR-95005-4.5 


Figure  A. -I:  liivestiG ATOR  I/O  Module 
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Figure  A.'):  In  vcstiCiATOll  SCSI  Module 


pa 
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Figure  A. 8:  InvestiG ATOR  Miscellaneous  Module 
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I'igurc  A.l); 


InvcsiiGATOll  Array  Hus,  First  Part 
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INVESI'l { : A'l'O K‘  STATI-:  MACH! N IAS 
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A|)lHMI<lix  (' 

iNvi::.s'i'i(;A'r()iv  im^ocuammaiji^i--  lock:  dfa/ice  listings 


'I’his  apiM-n.lix  .-cniaiiis  lists  for  the  Inva-stiGATOU.  PLDs.  These  PLDs 
used  tliroiiiiliuiit  llii'  liu'es!  i(  lA  1  OIL 


C.l  MAOIllC 


TITLE  SCSI  CGHTROLLER.  STATE  MACHINE 

PATTERN  MACHl 

REVISION  1.0 

AUTHOR  JON  HELLOTT 

COMPANY  ARRAY  PROJECT 

DATE  2-8-91 

CHIP  MACHl  MACH210 
;  PIN/NODE  DECLARATIONS 


:  P/N 

44- 

ft 

NAME 

^DE 

1 

GLOBAL 

PIN 

7 

vcc 

PIN 

7 

GND 

PIN 

35 

CLK20 

PIN 

7 

/RESET 

PIN 

7 

/SCSI 

PIN 

7 

RW 

PIN 

7 

/SCSI3UF 

PIN 

7 

/RCS 

PIN 

7 

/DBAS 

PIN 

7 

/CS 

PIN 

7 

ALE 

PIN 

7 

/RE 

PIN 

7 

/WE 

PIN 

7 

/lOR 

PIN 

7 

/lOT 

PIN 

7 

/ROE 

PIN 

7 

/AOE 

PIN 

7 

DRQ 

PIN 

7 

/RCE 

PIN 

7 

/DTACK 

PIN 

7 

SO 

PIN 

/KHP 

NODE 

7 

EWP>; 

PIN 

7 

lllCii'/. 

NODE 

STO  ■ 

NODE 

7 

ST  1 

NODE 

7 

ST'.'. 

STORAGE  COMMENTS 


COMBINATORIAL 

COMBINATORIAL 

COMBINATORIAL 

COMBINATORIAL 

COMBINATORIAL 

COMBINATORIAL 

COMBINATORIAL 

REGISTERED 

REGISTERED 

REGISTERED 

REGISTERED 

REGISTERED 

REGISTERED 

REGISTERED 

REGISTERED 

REGISTERED 

REGISTERED 

REGISTERED  . 

COMBINATORIAL 

REGISTERED 

REGISTERED 

REGISTERED 

REGISTERED 

REGISTERED 

REGISTERED 


SUPPLY  RAIL 
GROUND  RAIL 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 


are 
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NODE 

?  ST3 

REGISTERED  ; 

OUTPUT 

;  PIN 

?  /REIW 

COMBINATORIAL 

;  TEST 

INPUT 

;  PIN 

?  /WEIH 

COMBINATORIAL 

;  TEST 

INPUT 

STRING  DECLARATIONS 


;  Counter  control  strings, 

STRING  CNTLOAD  VSO ’ 

STRING  CNTHOLD  ’  SO' 

STRING  CNTCOUNT  'SO' 

STATE 

MOORE_MACHINE 
CLKF=CLK20 
DEFAULT^BRANCH  STAO 
START-UP  :=  POWER-UP  ->  STOP 

;  STATE  TRAMSITIOH  EQUATIGMS 

STOP:=  VCC  ->  STAO 
;  STANDBY  FOR  RAH  OR  SBIC  ACCESS 

STAO:=  STANDBY  ->  STAO 

+  DBA  ->  STAl 

+  SBIC  ->  DAHSO 

+  RAH  ->  RAMSO 

;  DBA  STANDBY  MODE 
STA1:=  DBA  ->  STAl 

+  NDBA  ->  STAB 

;  EXIT  DBA  STANDBY  MODE 


STAB  :■ 

=  HOLD 

-> 

STAB 

STAC 

;  RAM 

ACCESS 

RAMSO 

;=  READ 

-> 

RAHRl 

+  WRITE 

-> 

RAMWl 

;  RAM 

READ 

RAMRl 

=  VCC 

-> 

RAHR2 

RAMR2 

=  VCC 

-> 

RAMR3 

RAMR3 

=  VCC 

-> 

STAO 

;  RAM 

WRITE 

RAMWl 

=  VCC 

-> 

RAWW2 

RAMVO 

=  VCC 

-> 

RAHW3 

RAMW3 

=  VCC 

->> 

STAO 

:  SBIC  ACCESS 

DAMSO 

:=  READ 

-> 

DAMRl 

+  WRITE 

-> 

DAHWl 

;  SBIC  READ 

DAMRl 

=  VCC 

-> 

DAWR2 

DAMR2 

=  VCC 

-> 

DAHR3 

DAMR3 

=  VCC 

-> 

DAMR4 

DAHR4 

=  VCC 

-> 

DAHRS 

DAMR5 

=  VCC 

-> 

DAHR6 

DAMR6 

=  VCC 

~> 

DAMR7 

DAMR7 

=  VCC 

-> 

STAO 

;  SBIC  WRITE 

DAMUl 

=  VCC 

-> 

DAHW2 

DAMW2 

=  VCC 

-> 

OAHWB 

DAMWS 

=  VCC 

-> 

0AMW4 

DAMW4 

=  VCC 

-> 

IIAMWB 

DAMWS 

=  VCC 

-  > 

DAMWt> 

DAMW6 

=  VCC 

DAMW7 

DAMW7 

=  VCC 

-  N 

STAO 

NAWCADWAR-95005-4.5 


If)?) 


TUITION  oquatiom:;  .  .  .  . 

+  /ST'^  1  ♦•/STO  /RM'*'  /WE*/HIGH2'*'/CS*/ALE*/I0R*/I0T*/R0E*/DRQ*/RCE*/DTACK*/A0E 

»  ST2»/STl'f/ST0*/RE«/WE*  HIGHZ*/CS*  ALE*/IOR*/IOT*/ROE*  DRQ*  RCE*/DTACK*/iOE 
»/ST'’«/STl»  ST0*/RE*/WE*/HIGH2*/CS*  ALE*/IOR+/IOT*/ROE*/DRQ*  RCE*/DTACK*/AOE 
»/ST2»  STl''/STOi‘/RE*/WE*/HIGHZ*/CS*  ALE*/IOR*/IOT*/ROE*  DRQ*  RCE*/DTACK*/AOE 
+/ST2*  ST1»  STO+/RE+/WE*  HIGHZ+/CS+  ALE*/IOR*/IOT*/ROE*  DRQ*/RCE»/DTACK*/AOE 
»  ST2*/3T1>/ST0>/RE*/WE*  HIGHZ*/CS*  ALE*  IOR*/IOT*  ROE*  DRQ*  RCE*/DTACK*/AOE 

*  ST'^*=/ST1*  ‘^TO^/RE^/WE*  HIGHZ*/CS*  ALE*  IOR*/IOT*  ROE*  DRQ*  RCE*  DTACK*/AOE 

*  ST^*  STl*/ko*/RE+/HE*  HIGHZ*/CS*  ALE*  IOR*/IOT*  ROE*  DRQ*  RCE*/DTACK*/AOE 

*  ST^*  STl*  STO*/RE*/WE*  HIGHZ*/CS*  ALE*/IOR*  IOT*/ROE*  DRQ*  RCE*/DTACK*/AOE 

*/ST2*  ^STl*/STO''/RE*  WE*  HIGHZ+/CS*  ALE*/IOR*  IOT*/ROE*  DRQ*^RCE*  DTACK*/AOE 

*  /ST^'^/ST1^‘  STO  +  /RE+/WE*  HIGHZ*/CS*  ALE*/IOR*  IQT+/ROE*  DRQ*  RCE*/DTACK*/AOE 
*/ST^»  ‘=Tl*/STO*/RE*/WE*  HIGaZ*/CS*  ALE*/IOR*/IOT*/ROE*  DRQ*/RCE*/DTACK*/AOE 
*/ST7*  STl*' STO*/RE*/WE*  HIGHZ*/CS*  ALE*/IOR*/IOT*/ROE*  DRQ*/RCE*/DTACK*  AOE 

*  ST^* 'STl*/STO*/RE*/WE*  HiG;-;Z*/CS*/ALE*/IOR*/IOT*/ROE*  DRQ*/RCE*/DTACK*  AOE 
niMR-^  =  ST’*  ST^*/ST1*  3TO*  R£*/WE*  HIGHZ*  CS*/ALE*  IOR*/IOT*/ROE*  DRQ*/RCE*/DTACK*/AOE 

StL  ST'’*  STl«/STO*  RE*/WE*  HIGHZ*  CS*/ALE*  IOR*/IOT*/ROE*  DRQ*/RCE*/DTACK*/AOE 
ST’*  STl*  STO*  RE*/WE«  HIGHZ*  CS*/ALE*  IOR*/IOT*/ROE*  DRQ*/RCE*/DTACK*/AOE 
*/ST2*/STl*/ST0*  RE*/'''E*  HIGHZ*  CS*/ALE*  IOR*/IOT*/ROE*  DRQ*/RCE*  DTACK*/AOE 
*/ST’«/STl*  STO*  RE*/WE*  HIGHZ*  CS*/ALE*  IOR*/IOT*/ROE*  DRQ*/RCE*/DTACK*/AOE 
*/ST^.  ^T' */'=:tO*/RE*/WE*  HIGHZ*/CS*  ALE*/I0R*/I0T*/R0E*  DRQ*/RCE*/DTACK*  AOE 
*/ST2*  STl*' STO*/R£*/yE*  HIGHZ*/CS*/ALE*/IOR*/IOT*/ROE*  DRQ*/RCE*/DTACK*  AOE 

*  ST'’ * '^S’l */^TO*/RE*/WE*  HIGHZ*  CS*/ALE*/IOR*  IOT*/ROE*  DRQ*/RCE*/DTACK*/AOE 

*  ST’*/ST1*  ST0*/RE*  we*  HIGHZ*  CS*/ALE*/IOR*  IOT*/ROE*  DRQ*/RCE*/DTACK*/AOE 

*  ST’*  ST1*/ST0*/RE*  we*  HIGHZ*  CS*/ALE*/IOR*  IOT*/ROE*  DRQ*/RCE*/DTACK*/AOE 

*  ST’*  STl*  STO*/RE*  WE*  HIGHZ*  CS*/ALE*/IOR*  IOT*/ROE*  DRQ*/RCE*  DTACK*/AOE 
*/ST’*/ST1»/'=:TO*''se*  we*  HIGHZ*  CS*/ALE*/IOR*  IOT*/ROE*  DRQ*/RCE*/DTACK*/AOE 


;  STATE  DEF 
STOP  =  /ST3 
STAG  =  ST3 
STAl  =  /ST3 
STA3  =  /ST3 
RAMSO  =  /ST3 
RAMRl  =  /ST3 
RAMR2  =  /ST3 
RAHR3  =  /ST3 
RAMWl  =  /ST3 
RAMW2  =  ST3 
RAMW3  =  ST3 
DAMSO  =  ST3 
DAMRl 
DAMR2 


st: 

st: 


DAMR4 
DAMR5  =  STS 
DAMR6  =  /ST3 
DAMR7  =  /ST3 
DAHWl  =  /ST3 
DAMW2  =  /ST3 
DAMU3  =  /ST2 
DAMW4  =  /ST3 
DAMW5  =  /ST3 
DAMW6  =  /ST3 
DAMW7  =  ST3 


:  OUTPUT  EQUATIONS  are  now  rc-:!ioved 

STOP . OUTF  =CMTHOLD 

STAG . OUTF  =CNTHOLD 

STAl. OUTF  =CHTCOUHT 

STAS . OUTF  =CMTCOUNT 

RAMSO. OUTF  =CNTHOLD 

RAMRl. OUTF  =CHTLOAD 

RAMR2.0UTF  =CNTHOLD 

RAMR3.0UTF  =CNTHOLD 

RAMWl. OUTF  =CMTLOAD 

RAMW2.0UTF  =CBTHOLD 

RAMUS. OUTF  =CNTHOLD 

DAMSO. OUTF  =CNTHOLD 

DAMRl. OUTF  =CHTHOLD 

DAMR2.0UTF  =CNTHOLD 

DAMR3.0UTF  =CHTHOLD 

DAMR4.0UTF  =CNTHOLD 

DAMR5.0UTF  =CHTHOLD 

DAMR6.0UTF  =CNTHOLD 

DAMR7.0UTF  =CNTHOLD 

DAMWl.OUTF  =CWTHOLD 

DAMW2.0UTF  =CHTHOLD 

DAMW3.0UTF  =CHTHOLD 

DAMW4.0UTF  =CWTHOLD 

DAMW5.0UTF  =CNTHOI..O 

DAMW6 . OUTF  =CNTHOLD 

DAMW7.0UTF  ^CMTHOLD 

CONDITIONS 
;  Switch  to  DILI  reod'’; 

DBA  =  DBAS 

;  Switch  fi.-:;;  !'HA  rtode  to  t. •iiv.lhy  mode 
NDBA  =  /DP.AS 
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;  SBIC  accesc 
SBIC  =  SCSI  ^  /DBAS 

;  RAM  access 

RAM  =  SCSIBUF  ♦  /SCSI  ^  /DBAS 
;  No  access 

STANDBY  =  /DBAS  +  /SCSI  /SCSIBUF 
;  Hold  while  exiting  DBA  mode 
HOLD  =  /RCS 
;  Read  cycle 
READ  =  RU 

;  Write  cycle 
WRITE  =  /RW 

EQUATIONS 

GLOBAL. RSTF  =  RESET 

;  Tri-state  control  for  RE  and  WE  strobes. 

WE. TEST  =  HI GHZ 
RE. TEST  =  KIGHZ 

;  Counter  control  for  DBA  mode  accesses. 

ENP  :=  /EN?  -  EW?>:  /(RCS  KRE-^wE) ) 

ENPX  :=  /ENP  *  /ENPX  *  (RCSKEE+lvE))  +  /ENP  *  ENPX 
ENP.CLKF  =  CLKZO 
ENPX.CLKF  =  CLK20 

;  Counter  control  version  for  simulation 
;  ENP  :=  /ENP  *  ENPX  +  / (RCS* (REIN+WEIN ) ) 

;  ENPX  :=  /ENP  *  /ENPX  *  ( RCS* (REIN+WEIN ) )  +  /EN?  *  ENPX 

SIMULATION 

TEACE^ON  CLK20  RESET  SCSI  RU  SCSIBUF  DBAS  CS  ALE  RE  WE  lOR  lOT  ROE  AGE  DRQ 

RCE  Stack  so  enp  kigkz 

SETF  /CLK20  /DBAS  /SCSI  /SCSIBUF  /RESET  /RW  /RCS 
;  SETF  RESET 
;  CLOCKF  ;STO? 

;  SETF  /RESET 
CLOCKF  ;STAO 
CHECK  /ENP  SO 

CHECK  /RE  /WE  HIGHZ  /CS  ALE  /lOR  /lOT  /ROE  DRQ  RCE  /DTACK  /AOE 
CLOCKF  ;STAO 
CHECK  /ENP  SO 

CHECK  /RE  /WE  HIGHZ  /CS  ALE  /lOR  /lOT  /ROE  DRQ  RCE  /DTACK  /AOE 

;  RAM  READ 
SETF  SCSIBUF  RW 
CLOCKF  ;  RAMSO 
CHECK  /ENP  SO 

CHECK  /RE  /WE  HIGHZ  /CS  ALE  /lOR  /IQT  /ROE  DRQ  /RCE  /DTACK  /AOE 
CLOCKF  ;  RAMRl 
CHECK  /ENP  /SO 

CHECK  /RE  /WE  HIGHZ  /CS  ALE  TOR  /lOT  ROE  DRQ  RCE  /DTACK  /AOE 
CLOCKF  ;RAHR2 
CHECK  /ENP  SO 

CHECK  /RE  /WE  HIGHZ  /CS  ALE  lOR  /lOT  ROE  DRQ  RCE  DTACK  /AOE 
CLOCKF  ;RAMR3 
CHECK  /ENP  SO 

CHECK  /RE  /WE  HIGHZ  /CS  ALE  TOR  /IQT  ROE  DRQ  RCE  /DTACK  /AOE 
CLOCKF  ;STAO 
CHECK  /ENP  SO 

CHECK  /RE  /WE  HEGilZ  /CS  ALE  /TOR  /IQT  /ROE  DRQ  RCE  /DTACK  /AOE 
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;  RAM  WRITE 
SETF  SCSIBUF  /RW 
CLOCKF  :  RAMSO 
CHECK  /ENP  SO 

CHECK  /RE  /WE  HIGHZ  /CS  ALE 

CLOCKF  ;RAHW1 

CHECK  /ENP  /SO 

CHECK  /RE  /WE  HIGHZ  /CS  ALE 

CLOCKF  ;RAMW2 

CHECK  /ENP  SO 

CHECK  /RE  WE  HIGHZ  /CS  ALE 
CLOCKF  : RAHWS 
CHECK  /ENP  SO 

CHECK  /RE  /WE  HIGHZ  /CS  ALE 
CLOCKF  :STAO 
CHECK  /ENP  SO 

CHECK  /RE  /WE  HIGHZ  /CS  ALE 
SETF  /DBAS  /SCSI  /SCSIBUF 


/lOR  /lOT  /ROE  DRQ  /RCE  /DTACK  /AOE 
/lOR  lOT  /ROE  DRQ  RCE  /DTACK  /AOE 

/IQR  lOT  /ROE  DRQ  RCE  DTACK  /AOE 

/lOR  lOT  /ROE  DRQ  RCE  /DTACK  /AOE 

/lOa  /lOT  /ROE  DRQ  RCE  /DTACK  /AOE 


;  DBA  standby  mode 


SETF  DBAS 
CLOCKF  :  STAl 
CHECK  /ENP  SO 
CHECK  /HIGHZ  /CS 
CLOCKF  ;  STAl 
CHECK  /ENP  SO 
CHECK  /HIGHZ  /CS 
SETF  RCS 
:  SETF  RCS  /REIN 
;  CLOCKF  ;  STAl 


ALE  /lOR  /lOT  /ROE  /DRQ  RCE  /DTACK  /AOE 

ALE  /lOR  /lOT  /ROE  /DRQ  RCE  /DTACK  /AOE 
/WEIN;  BEGIN  DBA  TRANSACTIONS 


CHECK  /ENP  SO  /EHPX 
SETF  RCS  WEIN 
CLOCKF  :  STAl 
CHECK  /ENP  SO  EHPX 
CLOCKF  ;  STAl 
CHECK  /ENP  SO  ENPX 


SETF  RCS  /WEIN 
CLOCKF  ;  STAl 
CHECK  ENP  SO  ENPX 
CLOCKF  ;  STAl 
CHECK  /ENP  SO  /ENPX 
SETF  RCS  REIN 
CLOCKF  ;  STAl 


CHECK  /ENP  SO  EHPX 
SETF  RCS  /REIN 
CLOCKF  :  STAl 
CHECK  ENP  SO  ENPX 
CLOCKF  :  STAl 
CHECK  /ENP  SO  /ENPX 


CLOCKF  ;STA1 

CHECK  /ENP  SO  „ 

CHECK  /HIGHZ  /CS  ALE  /lOR  /lOT  /ROE  /DRQ  RCE  /DTACK  /AOE 

SETF  /DBAS 
CLOCKF  ;STA3 

CHECK  /ENP  SO  ,  _  ^ 

CHECK  /HIGHZ  /CS  ALE  /lOR  /lOT  /ROE  DRQ  RCE  /DTACK  /AOE 
CLOCKF  ;STAO 
CHECK  /EMP  SO 

CHECK  /RE  /WE  HIGiiZ  /CS  ALE  /TOR  /lOT  /ROE  DRQ  RCE  /DTACK  /AOE 
SETF  /RCS 


;  SBIC  REA!) 
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SETF  SCSI  RW 
CLOCKF  ;  DAHSO 
CHECK  /ENP  SO 


CHECK  /RE  /WE 
CLOCKF  ;  DAHRl 
CHECK  /ENP  SO 

HIGHZ 

/CS 

ALE 

/lOR 

/lOT 

/ROE 

DRQ 

/RCE 

/DTACK  /AOE 

CHECK  /RE  /WE 
CLOCKF  ;  DAHR2 
CHECK  /ENP  SO 

HIGH2 

/CS 

ALE 

/lOR 

/IDT  /ROE 

DRQ 

/RCE 

/DTACK  AOE 

CHECK  /RE  /WE 
CLOCKF  ;  DAHR3 
CHECK  /ENP  SO 

HIGII2 

/CS 

/ALE 

/lOR 

/lOT 

/ROE 

DRQ 

/RCE 

/DTACK  AOE 

CHECK  RE  /WE 
CLOCKF  :  DAHR4 
CHECK  /ENP  SO 

HIGKZ 

CS 

/ALE 

lOR 

/lOT 

/ROE 

DRQ 

/RCE 

/DTACK  /AOE 

CHECK  RE  /WE 
CLOCKF  :  DAHR5 
CHECK  /ENP  SO 

■HIGHZ 

CS 

/ALE 

lOR 

/IQT 

/ROE 

DRQ 

/RCE 

/DTACK  /AGE 

CHECK  RE  /WE 
CLOCKF  ;  DAMRS 
CHECK  /ENP  SO 

HIGHZ 

CS 

/ALE 

I  OR 

/lOT 

/ROE 

DRQ 

/RCE 

/DTACK  /AOE 

CHECK  RE  /WE 
CLOCKF  :  DAMR7 
CHECK  /ENP  SO 

HIGHZ 

CS 

/ALE 

lOR 

/lOT 

/ROE 

DRQ 

/RCE 

DTACK  /AOE 

CHECK  RE  /WE 
CLOCKF  ;STAO 
CHECK  /ENP  SO 

HIGHZ 

CS 

/ALE 

I  OR 

/lOT 

/ROE 

DRQ 

/RCE 

/DTACK  /AOE 

CHECK  /RE  /WE  HIGH2  /CS  ALE  /lOR  /IQT  /ROE  DRQ  RCE  /DTACK  /AOE 

;  SBIC  WRITE 

SETF  SCSI  /RW 

CLOCKF  ;  DAHSO 

CHECK  /EI'J?  SO 

CHECK  /RE  /WE 
CLOCKF  :  DAMWl 
CHECK  /ENP  SO 

HIGKZ 

/CS 

/lOR 

/lOT 

/ROE 

DRQ 

/RCE 

/DTACK  /AOE 

CHECK  /RE  /WE 
CLOCKF  ;  DAHW2 
CHECK  /ENP  SO 

HIGHZ 

/CS 

A  Lw 

/lOR 

/lOT 

/ROE 

DRQ 

/RCE 

/DTACK-  ACE 

CHECK  /RE  /WE 
CLOCKF  :  DAMW3 
CHECK  /ENP  SC 

HIGKZ 

/CS 

/ALE 

/loa 

/IQT 

/ROE 

DRQ 

/RCE 

/DTACK  AOE 

CHECK  /RE  /WE 
CLOCKF  ;  DAHW4 
CHECK  /ENP  SO 

HIGHZ 

CS 

/ALE 

/IQR 

lOT 

/ROE 

DRQ 

/RCE 

/DTACK  /AOE 

CHECK  /RE  WE 
CLOCKF  ;  DAHW5 
CHECK  /ENP  SO 

HIGKZ 

CS 

/ALE 

/lOR 

lOT 

/ROE 

DRQ 

/RCE 

/DTACK  /AOE 

CHECK  /RE  WE 
CLOCKF  ;  DAHW6 
CHECK  /ENP  SO 

HIGKZ 

CS 

/ALE 

/lOR 

lOT 

/ROE 

DRQ 

/RCE 

/DTACK  /AOE 

CHECK  /RE  WE 
CLOCKF  ;  DAMWT 
CHECK  /ENP  SO 

HIGHZ 

CS 

/ALE 

/loa 

lOT 

/ROE 

DRQ 

/RCE 

DTACK  /AOE 

CHECK  /RE  WE 
CLOCKF  ;STAO 
CHECK  /ENP  SO 

HIGHZ 

CS 

/ALE 

/lOR 

lOT 

/ROE 

DRQ 

/RCE 

/DTACK  /AOE 

CHECK  /RE  /WE  HIGKZ  /C3  AI.F.  /lOR  /TOT  /ROE  DRQ  RCE  /DTACK  /AOE 
TRACE_OFF 
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C.2  .M.\(312 


TITLE  CPU  MODULE  SUPPORT  GLUE 

PATTERN  MACH2 

REVISION  1.0 

AUTHOR  JON  MELLOTT 

COMPANY  ARRAY  PROJECT 

DATE  2-9-91 


MACH2  also  provides  intorupt  request  encoding  for  the  030 ’s  IPL 
Tines.  Independent  interrupt  request  lines  are  provided  for 
both  SCSI  interfaces,  the  serial  I/O  interface,  the  timer, 
any  additional  devices  on  the  I/O  bus,  and  the  array  bus. 

The  interrupts  are  prioritized  as  follows; 


Interrupt 

Request 

Priority  Description 


7  HMI.  .Reserved. 

6  SCSI  1 

s  Unallocated  IRQ.  Reserved. 

4  SIO. 

3  Timer. 

2  I/O  Bus. 

1  Array  Bus . 


CHIP  MACH2  HACHliO 
;  PIN/NODE  DECLARATIONS 


:  P/N 

# 

NAME 

NODE 

1 

GLOBAL 

PIN 

7 

vcc 

PIN 

7 

GMD 

PIN 

35 

CLK20 

PIN 

7 

/RESET 

PIN 

7 

/AS 

PIN 

7 

/AVEC 

PIN 

7 

/DSACKO 

PIN 

7 

/DSACKl 

PIN 

7 

/STERH 

PIN 

7 

/ARYBERR 

PIN 

7 

/lOBERR 

PIN 

7 

/RCO 

PIN 

7 

/BERR 

PIN 

7 

SVO 

NODE 

7 

SVl 

PIN 

7 

SCSIIIRQ 

PIN 

7 

/SIOIRQ 

PIN 

7 

/TIHERIRQ 

PIN 

7 

/lOIRQ 

PIN 

7 

/ARYIRQ 

PIN 

7 

/IPL2 

PIN 

7 

/IPLl 

PIN 

7 

/IPLO 

;  STRING  DECLARATIONS 


PAIRED  WITH  PIN  STORAGE  COMMENTS 


;  SUPPLY  RAIL 
;  GROUND  RAIL 

COMBINATORIAL 

;  -INPUT 

COMBINATORIAL 

;  INPUT 

COMBINATORIAL 

;  INPUT 

COMBINATORIAL 

;  INPUT 

COMBINATORIAL 

;  INPUT 

COMBINATORIAL 

;  INPUT 

COMBINATORIAL 

;  INPUT 

COMBINATORIAL 

;  INPUT 

COMBINATORIAL 

;  INPUT 

COMBINATORIAL 

;  INPUT 

REGISTERED 

;  OUTPUT 

REGISTERED 

;  OUTPUT 

REGISTERED 

;  OUTPUT 

COMBINATORIAL 

;  INPUT 

COMBINATORIAL 

;  INPUT 

COMBINATORIAL 

;  INPUT 

COMBINATORIAL 

;  INPUT 

COMBINATORIAL 

;  INPUT 

COMBINATORIAL 

;  OUTPUT 

COMBINATORIAL 

;  OUTPUT 

COMBINATORIAL 

;  OUTPUT 
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STATE 

MOORE  MACHINE 
CLKF=CLK20 
DEFAULT  BRANCH  SO 
START-UP  :=  POWER_UP  ->  SO 

;  STATE  DEFINITIONS 
;  Power-up  k  standby. 

50  =  /SVl  ♦/SVO  *  /BERR 
;  Cycle  in  progress. 

51  =  /SVl  -tSVO  *  /BERR 

;  Bus  error  detected. 

52  =  /SVl  *  /SVO  »  BERR 

53  =  SVl  ♦  /SVO  /BERR 

;  STATE  TRANSITION  EQUATIONS 

;  WAIT  FOR  CYCLE  TO  START  STATE 

50  :=  WAIT  ->  SO 

+  GO  ->  Si 

;  WAIT  FOR  NORMAL  CYCLE  COMPLETION  STATE 

51  STANDBY  ->  SI 

+  DONE.OK  ->  S3 

+  FAULT  ->  S2 

;  BERR  HANDLER  STATE 

52  :=  VCC  ->  S3 

;  RETURN  TO  SO 

53  :=  VCC  ->  SO 

;  OUTPUT  EQUATIONS 

CONDITIONS 

;  HOLD  AT  SI 

WAIT  =  /AS 

;  START  CYCLE 
GO  =  AS 

;  STANDBY  FOR  COMPLETION  OF  CYCLE 

STANDBY  =  /AVEC  *  /DSACKG  *  /DSACKl  ^  /STERM  * 

/ARYBERR  *  /lOBERR  ^  /RCG 

;  END  CYCLE 

DONE^OK  =  (AVEC  +  DSACKO  +  DSACKl  +  STERM)  ’t' 

/(ARYBERR  +  lOBERR  +  RCO) 

;  BUS  FAULT 

FAULT  =  /AVEC  *  /DSACKO  /DSACKl  *  /STERM  * 

(ARYBERR  +  lOBERR  +  RCO) 

EQUATIONS 

;  Interrupt  priority  encoding. 

IPL2  =  SCSI 1 IRQ  +  SIOIRQ 

IPLl  =  SCSIllRQ  +  (TIHERIRQ  >  IQIRQ) ♦/SIOIRQ 

IPLO  =  TIMERIRQ  ^  / (SIOIRQ-SCSI 1 IRQ)  +  ARYIRQ  ♦  / (lOIRQ+SIOIRq+SCSIlIRQ) 

GLOBAL. RSTF  =  RESET 
;  GLOBAL. CLKF  =  CLK20 

SIMULATION 

TRACE^ON  BERR  SVO  SVl  SCSIllRQ  SIOIRQ  TIHERIRQ  lOIRQ  ARYIRQ  IPL2  IPLl  IPLO 

SETF  /CLK20  RKSMT  /AC  /AVEC  /'DSACKO  /DSACKl  /STERM  /ARYBERR  /lOBERR  /RCO 
CLOCKF 
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SETF  /RESET 

;  *EXHAUSTIVELY«  TEST  IPL  ENCODING... 

SETF  /SCSIllRQ  /SIOIRO  /TIHERIRQ  /lOIRQ  /ARVIRQ 
CHECK  /IPL2  /IPLl  /IPLO 

SETF  /SCSIllRQ  /SIOIRQ  /TIHERIRQ  /lOIRQ  ARVIRQ 
CHECK  /IPL2  /IPLl  IPLO 

SETF  /SCSIllRQ  /SIOIRQ  /TIHERIRQ  lOIRQ  /ARVIRQ 
CHECK  /IPL2  IPLl  /IPLO 

SETF  /SCSIllRQ  /SIOIRQ  /TIHERIRQ  lOIRQ  ARVIRQ 
CHECK  /IPL2  IPLl  /IPLO 

SETF  /SCSIllRQ  /SIOIRQ  TIHERIRQ  /lOIRQ  /ARVIRQ 
CHECK  /IPL2  IPLl  IPLO 

SETF  /SCSIllRQ  /SIOIRQ  TIHERIRQ  /lOIRQ  ARVIRQ 
CHECK  /IPL2  IPLl  IPLO 

SETF  /SCSIllRQ  /SIOIRQ  TIHERIRQ  lOIRQ  /A.RVIRQ 
CHECK  /IPL2  IPLl  IPLO 

SETF  /SCSIllRQ  /SIOIRQ  TIHERIRQ  lOIRQ  ARVIRQ 
CHECK  /IPL2  IPLl  IPLO 

SETF  /SCSIllRQ  SIOIRQ  /TIHERIRQ  /lOIRQ  /AP.VIRQ 
CHECK  IPL2  /IPLl  /IPLO 

SETF  /SCSIllRQ  SIOIRQ  /TIHERIRQ  /IQIRQ  APalRQ 
CHECK  IPL2  /IPLl  /IPLO 

SETF  /SCSIllRQ  SIOIRQ  /TIHERIRQ  IQIRQ  /ARVIRQ 
CHECK  IPL2  /IPLl  /IPLO 

SETF  /SCSIllRQ  SIOIRQ  /TIHERIRQ  IQIRQ  ARVIRQ 
CHECK  IPL2  /IPLl  /IPLO 

SETF  /SCSIllRQ  SIOIRQ  TIHERIRQ  /IQIRQ  /ARVIRQ 
CHECK  IPL2  /IPLl  /IPLO 

SETF  /SCSIllRQ  SIOIRQ  TIHERIRQ  /lOIRQ  ARVIRQ 
CHECK  IPL2  /IPLl  /IPLO 

SETF  /SCSIllRQ  SIOIRQ  TIHERIRQ  lOIRQ  /ARVIRQ 
CHECK  IPL2  /IPLl  /IPLO 

SETF  /SCSIllRQ  SIOIRQ  TIHERIRQ  IQIRQ'  ARVIRQ 

r'p’Trpv’  TPT  O  /TPT  /TPT  0 

SETF  SCSlIlRQ  /SIOIRQ  /TIHERIRQ  /IQIRQ  /ARVIRQ 

rurTV  TPf  TPT  1  /TPT  0 

SETF  SCSIllRQ  /SIOIRQ  /TIHERIRQ  /IQIRQ  ARVIRQ 
CHECK  IPL2  IPLl  /IPLO 

SETF  SCSIllRQ  /SIOIRQ  /TIHERIRQ  lOIRQ  /ARVIRQ 
CHECK  IPL2  IPLl  /IPLO 

SETF  SCSIllRQ  /SIOIRQ  /TIHERIRQ  IQIRQ  ARVIRQ 
CHECK  IPL2  IPLl  /IPLO 

SETF  SCSIllRQ  /SIOIRQ  TIHERIRQ  /IQIRQ  /ARVIRQ 
CHECK  IPL2  IPLl  /IPLO 

SETF  SCSIllRQ  /SIOIRQ  TIHERIRQ  /IQIRQ  ARVIRQ 
CHECK  IPL2  IPLl  /IPLO 

SETF  SCSIllRQ  /SIOIRQ  TIHERIRQ  IQIRQ  /ARVIRQ 
CHECK  IPL2  IPLl  /IPLO 

SETF  SCSIllRQ  /SIOIRQ  TIHERIRQ  IQIRQ  ARVIRQ 
CHECK  IPL2  IPLl  /IPLO 

SETF  SCSIllRQ  SIOIRQ  /TIHERIRQ  /lOIRQ  /ARVIRQ 
CHECK  IPL2  I.-Ll  /IPLO 

SETF  SCSIllRQ  SIOIRQ  /TIHERIRQ  /lOIRQ  ARVIRQ 
CHECK  IPL2  IPLl  /IPLO 

SETF  SCSIllRQ  SIOIRQ  /TIHERIiiQ  lOIRQ  /ARVIRQ 
CHECK  IPL2  IPL!  /IPLO 

SETF  SCSIllRQ  SIOIR;'  /TIMHKIRQ  lOIRQ  ARVIRQ 
CHECK  IP [-7:  P.M.’.  /.PM.O 

SETF  SCStllKl,'  I  ro  I  T I  !!!•■.;•:!  iit,!  /lUIKQ  /ARVIRQ 
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CHECK 

IPL2  IPLl  /IPLO 

SETF 

scsiliRo  sioiag 

TIHEKIRQ 

/lOIRQ 

ARYIRQ 

CHECK 

IPL2  IPLl  /IPLO 

SETF 

SCSIllRQ  SIOIRQ 

TIMER IRQ 

lOIRQ 

/ARYIRQ 

CHECK 

IPL2  IPLl  /IPLO 

SETF 

SCSIllRQ  SIOIRQ 

TIMER IRQ 

IQIRQ 

ARYIRQ 

CHECK 

IPL2  IPLl  /IPLO 

;  TEST  BERR  STATE  MACHINE 
SETF  RESET 
CLOCKF  ;  SO 

SETF  /RESET  /STERM  /DSACKl  /DSACKO  /AVEC  /ARYBERR  /lOBERR  /RCO 

CHECK  /SVl  /SVO  /BERR 

CLOCKF  ;SO 

SETF  AS 

CLOCKF  ;S1 

CHECK  /SVl  SVO  /BERR 
CLOCKF  ;S1 

CHECK  /SVl  SVO  /BERR 
SETF  STERM 
CLOCKF  ;S3 

CHECK  SVl  /SVO  /BERR 
SETF  /AS  /STERM 
CLOCKF  :SO 

CHECK  /SVl  /SVO  /BERR 
SETF  AS 
CLOCKF  :S1 

CHECK  /SVl  SVO  /BERR 
CLOCKF  ; S 1 

CHECK  /SVl  SVO  /BERR 
SETF  OSACKO 
CLOCKF  ;S3 

CHECK  SVl  /SVO  /BERR 
SETF  /AS  /DSACKO 
CLOCKF  ;SO 

CHECK  /SVl  /SVO  /BERR 
SETF  AS 
CLOCKF  ;S1 

CHECK  /SVl  SVO  /BERR 
CLOCKF  ;S1  ■ 

CHECK  /SVl  SVO  /BERR 
SETF  DSACKl 
CLOCKF  :S3 

CHECK  SVl  /SVO  /BERR 
SETF  /AS  /DSACKl 
CLOCKF  :SO 

CHECK  /SVl  /SVO  /BERR 
SETF  AS 
CLOCKF  ;S1 

CHECK  /SVl  SVO  /BERR 
CLOCKF  : S 1 

CHECK  /SVl  SVO  /BERR 
SETF  AVEC 
CLOCKF  ;S3 

CHECK  SVl  /SVO  /BERR 
SETF  /AS  /AVEC 
CLOCKF  ;SO 

CHECK  /SVl  /SVO  /BERR 
SETF  AS 
CLOCKF  ;S1 

CHECK  /SVl  SVO  /BERR 
CLOCKF  ;S1 

CHECK  /SVl  SVO  /BEPuk 
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SETF  ARYBERR 
CLOCKF  :S2 

CHECK  /SVl  /SVO  BERR 
CLOCKF  ;S3 

CHECK  SVl  /SVO  /BERR 
SETF  /AS  /ARYBERR 
CLOCKF  :SO 

CHECK  /SVl  /SVO  /BERR 
SETF  AS 
CLOCKF  :S1 

CHECK  /SVl  SVO  /BERR 
CLOCKF  ;S1 

CHECK  /SVl  SVO  /BERR 
SETF  lOBERR 
CLOCKF  ;S2 

CHECK  /SVl  /SVO  BERR 
CLOCKF  ;S3 

CHECK  SVl  /SVO  /BERR 
SETF  /AS  /lOSERR 
CLOCKF  : SO 

CHECK  /SVl  /SVO  /BERR 
SETF  AS 
CLOCKF  ;S1 

CHECK  /SVl  SVO  /BERR 
CLOCKF  :S1 

CHECK  /SVl  SVO  /BERR 
SETF  RCO 
CLOCKF  ;S2 

CHECK  /SVl  /SVO  BERR 
CLOCKF  ;S3 

CHECK  SVl  /SVO  /BERR 
SETF  /AS  /RCO 
CLOCKF  ;SO 

CHECK  /SVl  /SVO  /BERR 
TRACE.OFF 


C.3  MACllMXA 

TITLE  SCRAM  CONTROLLER 
PATTERN  HACH3XA 
REVISION  0.0 
AUTHOR  JON  HELLOTT 
COMPANY  ARRAY  PROJECT 
DATE  2-2-92 

CHIP  MACH3  MACH210 
;  PIN/NODE  DECLARATIONS 


P/N  #  NAME  PAIRED  WITH  PIN  STORAGE  COMMENTS 


NODE 

1 

GLOBAL 

PIN 

35 

CLK20 

COMBINATORIAL 

INPUT 

PIN 

10 

/RESET 

COMBINATORIAL 

INPUT 

PIN 

33 

/AS 

COMBINATORIAL 

INPUT 

PIN 

13 

/RAMSP 

COMBINATORIAL 

INPUT 

PIN 

32 

RW 

COMBINATORIAL 

INPUT 

PIN 

25 

/CHREQ 

COMBINATORIAL 

INPUT 

PIN 

11 

/RANKS EL 

COMBINATORIAL 

INPUT 
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PIN 

27 

/RCO 

COMBINATORIAL 

INPUT 

PIN 

31 

/HSA 

REGISTERED 

OUTPUT 

PIN 

30 

/RAS 

REGISTERED 

OUTPUT 

PIN 

4 

/CSALL 

REGISTERED 

OUTPUT 

PIN 

5 

/WE 

REGISTERED 

OUTPUT 

PIN 

6 

/CS 

REGISTERED 

OUTPUT 

PIN 

21 

/OE 

REGISTERED 

OUTPUT 

PIN 

8 

/STERH 

REGISTERED 

OUTPUT 

PIN 

14 

/CBACK 

REGISTERED 

OUTPUT 

PIN 

2 

trig: 

REGISTERED 

OUTPUT 

PIN 

3 

TRIGK 

REGISTERED 

OUTPUT 

PIN 

7 

/OER 

REGISTERED 

OUTPUT 

PIN 

24 

/OET 

REGISTERED  ; 

OUTPUT 

PIN 

9 

CLKEN 

REGISTERED  ; 

OUTPUT 

NODE  . 

7 

LTCK 

REGISTERED  ; 

OUTPUT 

NODE 

7 

INC 

REGISTERED  ; 

OUTPUT 

PIN 

4 1 

/CLRREr 

REGISTERED  ; 

OUTPUT 

PIN 

43 

/REFREQ 

REGISTERED  ; 

OUTPUT 

NODE 

7 

SVl 

REGISTERED  ; 

OUTPUT 

NODE 

7 

SVO 

REGISTERED  ; 

OUTPUT 

PIN 

40 

AOO 

REGISTERED  ; 

OUTPUT 

PIN 

42 

AO  1 

REGISTERED  ; 

OUTPUT 

PIN 

28 

AIO 

COMBINATORIAL  ; 

INPUT 

PIN 

29 

All 

COMBINATORIAL  ; 

INPUT 

;  The  PAx  outputs  which  would  normally  be  used  to  trigger  the  PEG 
;  are  used  for  write  strobe  (yE'*),  chip'  select  (CS*),  and  output 
;  enable  (QE»)  in  this  implementation.  Additionally,  the  RAS  input 
;  becomes  the  RAS  output.  Mote,  with  the  four  aforementioned  signals, 
;  it  is  assumed  that  they  tire  distributed  at  the  PEG  socket. 

:  STRING  DECLARATIONS 


STATE 

MOORE  MACHINE 

CLKF=CLK20 

DEEAULT_BRANCH  SO 

START_UP  : = . POWER_UP  ->  STOP 


;  STATE  TRANSITION  EQUATIONS 

;  POWER-UP  STATE 
STOP  :=  VCC  ->  SO 


;  HOLD  STATS 

SO  :=  WAIT  ->  SO 

+  REF_REQ  ->  REFSO 

+  READ  ->  SRI 

+  WRITE  ->  SWO 


;  REFRESH  STATS  SEQUEHCE 
REFSO  :=  VCC  ->  REFSl 
REFSl  :=  VCC  ->  SO 

NON-STATIC  COLUMN  READ  SEQUENCE 


SRI 

:  = 

BRST^REQ 

-> 

SBRl 

+ 

NO  B  REQ 

-> 

SR2 

SR2 

:  = 

VCC 

-> 

SBR7 

SBR7 

:  = 

VCC 

-> 

SR.3 

SR3 

:  = 

VCC 

-> 

SO 

:  STATIC  COLUHM  READ  SEQUENCE 

SERI  ;=  VCC  SBR'j 
SER2  : =  VCC  ■ '  SBR3 
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SBR4 

:=  VCC 

SBRS 

SBRS 

:=  VCC 

->  3BR6 

SBR6 

:=  VCC 

->  SBR7 

;  NOK-STATIC  COLUMN  WRITE  SEQUENCE 
SUO  :=  VCC  ->  SWl 

SWl  :=  VCC  ->  SW2 

SW2  :=  VCC  ->  SO 


;  STATE  DEFINITION  EQUATIONS 

STOP  =  /SV1+/SV0*/LTCH*/C3ALL*/STERM*/CBACK*/0ER*/0ET*/INC*/CLRREF*/IIAS*/WE*/CS*/0E 
SO  =  /SV1+/SVO+  LTCH'f/CSALLt'/STERH+/CBACK*/OER*/OET*/INC*/CLRREF*/RAS*/WE*/CS*/OE 
REFSO  =  /SVl*/SVO»/LTCH*  CSALL*/STERM*/CBACK*/OER*/OET*/INC*  CLRREF*/RAS*/WE»  CS*/OE 
REFSl  =  /SVl*/3VO*/LTCH*  C3ALL*/STERH*/CBACK*/0ER*/0ET*/INC*/CLRREF*  RAS*/WE*  CS*/OE 
SRI  =  /SVl»/SVO*/LTCH*  CSALL*/STERM*/CBACK*  OER*/OET*/INC*/CLRREF*  RAS*/WE*/CS*  OE 
SBRl  =  /SVl*/SVO*/LTCH*  CSALL*  STERM*  CBACK*  OER*/OET*/INC*/CLRREF*  RAS+/WE*  CS*  OE 
SBR2  =  /SVl*/SVO*/LTCH*  CSALL*/STERH*  CBACK*  OER*/OET»  INC*/CLRREF*  RAS*/WE“»  CS*  OE 
SBR3  =  /SVl*/SVO*/LTCH*  CSALL*  STERM*  CBACK*  OER*/OET*/INC*/CLRREF*  RAS*/WE*  CS*  OE 
SBR4  =  /SVl*  SVO*/LTCH*  CSALL*/STERM*  CBACK*  OER*/OET*  INC*/CLRREF*  RAS*/WE*  CS*  OE 
SBR5  =  /SVl*  SVO*/LTCH*  CSALL*  STERM*  CBACK*  OER+/OET*/INC*/CLRREF*  RAS*/WE*  CS*  OE 
SBR6  =  /SVl*/SVO*/LTCH*  CSALL*/STERM*/CBACK*  OER*/OET*  INC*/CLRREF*  RAS*/WE*  CS*  OE 
SBR7  =  /SVl*/SVO*/LTCK*  CSALL*  STERH*/CBACK*  OER*/OET*/INC*/CLRREF*  RAS*/WE*  CS*  OE 
SR2  =  /SV1+/3V0*/LTCH*  CSALL*/STERH*/CBACK*  OER*/OET*/INC*/CLRREF*  RAS*/WE*  CS*  OE 
SR3  =  /SVl*  SVO+/LTCH*  CSALL*/STERH*/C3ACK*  OER*/OET*/INC*/CLRREF*  RAS*/WE*  CS*  OE 
SWO  =  /SVl*/SVO*/LTCH*/CSALL*/STERH*/CBACK*/OER*  OET*/INC*/CLRREF*  RAS*  WE*/CS*/OE 
SWl  =  /SV1*/3V0*/LTCH»/CSALL*/STERH*/CBACK*/0ER*  OET*/INC*/CLRREF*  RAS*  WE*  CS*/OE 


OUTPUT  EQUA 
STOP.QUTF 
SO . OUTF 
RLISO.CUTF 
RLISI.OUTF 
RL1S2.0UTF 
RL1S3.0UTF 
RL1S4.0UTF 
RL1S5 . OUTF 
RL1S6 . OUTF 
RL1S7.0UTF 
RL1S8 . OUTF 
RL1S9 . OUTF ■ 
RLISIO.OUTF 
RHISO.OUTF 
WHSO.OUTF 
WHSl.OUTF 
WHS2.QUTF 
WMSO.OUTF 
WHS 1. OUTF 
WMS2.0UTF 
WMS3.0UTF 
REFSO . OUTF 
REFSl. OUTF 
REFS2.0UTF 


QMS 

/PA2*/PA1»/PA0 
/PA2»/PA1*/PA0 
PA2*/FA1*/PA0 
PA2*/PA1*/PA0 
/PA2*/PA1*/PA0 
/PA2*/PA1*/PA0 
/?A2*/P.A1*/PA0 
/PA2*/PA1*/PA0 
/PA2*/PA1*/PA0 
/PA2*/PA1*/PA0 
/PA2*/PAl*/PAO 
/PA2*/PAl*/PAO 
/PA2*/PA1*/PA0 
/?A2*/PA1*/PA0 
/PA2*  PA1+/PAO 
/PA2*  PAl*/PAO 
/PA2*/PA1*/PA0 
/PA2*/PA1*  PAO 
/PA2*/PA1*  PAO 
/PA2*  PAl*  PAO 
/PA2'  PAl*  PAO 
/PAQ'/PAi+ZPAO 
/PA2*/PA1*/PA0 
/PA2*/PA1*/PA0 


CONDITIONS 
;  HOLD  AT  SO 

WAIT  =  (/REFREQ  *  /AS  •  /CRAMS?  *  BANKSEL))  +  (/REFREQ  ♦  RESET) 

:  REFRESH  REQ-JKST 

REF.REQ  =  RKFRF.q 

:  READ  REQUKST 

READ  =  /RKFRKQ  •  A:'.  ‘  { liANKSEL  «  RAMSP)  *  RW  *  /RESET 
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;  WRITE  REQUEST 

WRITE  =  /REFREQ  *  AS  »  •'B/UJKSEL  ♦  RAHSP)  ♦  /RW  *  /RESET 

;  BURST  REQUEST 
BRST.REQ  =  CBREQ 
MO_B_REg  =  /CBREQ 


EQUATIONS 

GLOBAL. RSTF  =  RESET 
;  GLOBAL, CLKF  =  CLK20 

REFREQ  :=  RCO*/CLRREF  +  REFR£Q^‘/CLRREF 
REFREQ. CLKF  =  CLK20 
;  BURST  ADDRESS  COUNTER  EQUATIONS 

AGO  :=  LTCH*AIO  +  (/LTCH*/ItJC) + AOO  +  (/LTCH*INC)*/AOO 
AOO.CLKF  =  CLK20 
AOO.TRST  =  VCC 

AOl  :=  LTCH  +  AIl  +  (,/LTCH»/I::C)*A01  +  (/LTCH*INC)*(/A01*AOO+A01*/A00) 
AQl.CLKF  =  CLK20 
AOl.TRST  =  VCC 

:  UNUSED  SIGNALS  IN  THIS  VERSION 

CLKEN  :=  GHD 

CLXEN.CLKF  =  CLK20 

TRIGJ  :=  GND 

TRIG J. CLKF  =  CLK20 

TRIGK  :=  GND 

TRIGK.CLKF  =  CLK20 

HSA  : =GHD 

HSA.CLKF  =  CLK20 

HSA.TRST  =  VCC 

SIMULATION 


C.4  P.ALO 

TITLE  ADDRESS  SPACE  DECODER 
PATTERN  PALO 
REVISION  1.0 
AUTHOR  JON  MELLDTT 
COMPANY  ARRAY  PROJECT 
DATE  5-20-90 

;  PALO  MUST  BE  PAL22V10-10  DC 
;  —  PAL22V10-10  —  10  ns 

;  —  D:  ceramic  package 

;  —  C:  Commercial  grade 

;  DESCRIPTION: 

;  This  PAL  decodes  the  address  lines  into  the  appropriate  address  space. 
;  The  memory  map  is  as  folloics: 


1  repeacs  ! 

+ - +  C^Mb 


1  Array 
1  Space 
1 
I 

+ - 


lb  Kb 
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;  I  Prograni/DaCa  I 

;  I  (RAM)  Space  1 

;  1  i 

.  + - -  iHb 

;  I  I 

;  1  I/O  Space  1 

;  1  I 

.  + - +  123K 

;  I  1 

;  I  ROM  Space  1 

;  I  I 

.  + - +  OK 

;  The  outputs  are  conditioned  by  the  /RESET  signal  so  that  the  outputs 
;  are  held  false  during  reset.  Additionally,  the  outputs  are  conditioned 

;  by  the  function  code  signal  so  that  memory  does  not  respond  during 

•  CPU  space  cycles.  CPU  space  is  indicated  by  FC0=FC1=FC2=1 . 

;  The  cache  inhibit  input  is  generated  by  this  PAL. 

;  Caching  is  inhibited  in  I/O  space  and  Array  space. 

;  A  signal  is  generated  by  this  pal  indicating  that 
CHIP  PALO  PAL22V10 
;  PIN  DECLARATIONS 


PIN 

1 

CLK20 

COMBIUATORIAL 

INPUT  CLOCK 

PIN 

2 

A17 

C0HBIHA70RIAL 

INPUT 

PIN 

3 

A18 

COHBIMATORIAL 

INPUT 

PIN 

4 

A19 

COHBIHATORIAL 

INPUT 

PIN 

5 

A20 

COMBINATORIAL 

INPUT 

PIN 

6 

A21 

COHBIHATORIAL 

INPUT 

PIN 

7 

A22 

COHEINATORIAL 

INPUT 

PIN 

8 

A23 

COMSIKATORIAL 

INPUT 

PIN 

9 

A24 

COHBIHATORIAL 

INPUT 

PIN 

10 

A2S 

CDHBIKATORIAL 

INPUT 

PIN 

11 

/RESET 

COHBIHATORIAL 

INPUT 

PIN 

12 

GND 

SUPPLY  RAIL 

PIN 

13 

FCO 

COMBINATORIAL 

INPUT 

PIN 

14 

FCl 

COMBINATORIAL 

INPUT 

PIN 

15 

FC2 

COMBINATORIAL 

INPUT 

PIN 

16 

/AS 

COHEINATORIAL 

OUTPUT 

PIN 

17 

/ROMS? 

COMBINATORIAL 

OUTPUT 

PIN 

18 

/lOSP 

COMBINATORIAL 

OUTPUT 

PIN 

19 

/CIIN 

COMBINATORIAL 

OUTPUT 

PIN 

20 

/RAHSP 

(-;nMKTM4TnaTJlT 

OUTPUT 

PIN 

21 

/ARYSP 

COHEINATORIAL 

OUTPUT 

PIN 

22 

/AVEC 

REGISTERED 

REGISTERED  OUTPUT 

PIN 

23 

AIS 

COHEINATORIAL 

INPUT 

PIN 

24 

VCC 

SUPPLY  RAIL 

EQUATIONS 

;  Setup  FCl,  FC2,  AS,  and  Alb  as  inputs. 

FCl.TRST  =  GND 
FC2.TRST  =  GMD 
AS. TEST  =  GMD 
A16.TRST  =  GMD 

;  ARRAY  SPACE:  iGMb-OMMl, 

ARYSP  =  /CKC'Ji^FCl  *FC0  i  ♦/KK::KT*/(/A25  +  /A24) 

;  RAM  SPACE:  iHb-ir.Ml-. 

RAMSP  =  /(FCj^KCl  ♦ECO)  ♦ /iild'.ET*  (VA2S^/A2-l ) '^/(/A23  +  /A22<‘/A21*/A20) 
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;  I/O  SPACE:  12SK-lMb 
lOSP  =  /(FC2*FCltFCO)t 

/RESET*  (/A25*-/A24*/A23*/A22*-/A21*/A20)*/(/A19*/A18*/A17) 

;  ROM  SPACE:  0K-123K 
ROMSP  =  /(FC2*FCl*FCO)*/RESET« 
/A25*/A24*/A23*/A22*/A21*/A20*/A19*/A1S*/A17 

;  CACHE  IHHIBIT  INPUT  (/CIIH;: 

CIIN  =  /RESET  *  AS  ♦  /(FC2-FC1 *FCO)  * 
((/A25*/A24*/A23*/A22*/A2l*/A20)*/(/A19»/Al3*/A17)  +  /(/A2S+/A24) ) 

;  INTERRUPT  AUTOVECTOR; 

AVEC  :=  /RESET  «  AS  •  (FC2  ^  FCl  *  FCO)  *  (A19  *  AIS  ♦  A17  *  A16) 
SIMULATION 

TRACE_ON  FC2  FCl  FCO  A25  A24  A23  A22  A2i  A20  A19  A18  A17 
RESET  ROMS?  lOSP  RAMS?  ARYS?  CIIW  AVEC 

SETF  /RESET  /FC2  /FCl  FCO  AS 
;  Check  ROM  spruce. 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  /A  19  /A18  /A17 
CHECK  ROMSP  /lOSP  /RAHSP  /ARYS?  /CIIN 

;  Check  I/O  space. 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  /A19  /AIS  A17 

CHECK  /ROMSP  lOSP  /RAHSP  /ARYS?  CIIN 

SETF  /A2S  /A24  /A23  /A22  /A21  /A20  /A19  A18  /A17 

CHECK  /ROMS?  lOSP  /RAMS?  /ARYS?  CIIN 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  /A19  A13  A17 

CHECK  /ROMSP  IQS?  /RAMS?  /ARYS?  CIIN 

SETF  /A25  /A24  /A23  /A22  /A2i  /A20  A19  /A18  /A17 

CHECK  /ROMSP  lOSP  /RAHSP  /ARYS?  CIIN 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  A19  /A18  A17 

CHECK  /ROMSP  lOSP  /RAHSP  /ARYS?  CIIN  ■ 

SETF  /A2S  /A24  /A23  /A22  /A21  /A20  A19  A18  /A17 

CHECK  /ROMS?  lOS?  /RAMS?  /ARYS?  CIIN 
SETF  /A2S  /A24  /A23  /A22  /A21  /A20  A19  A18  A17 

CHECK  /ROMSP  lOS?  /RAHSP  /ARYS?  CIIN 

;  Check  RAH  space. 

SETF  /A25  /A24  /A23  /A22  /A21  A20  /A19  /A18  /A17 

CHECK  /ROMS?  /lOS?  RAMS?  /ARYSP  /CIIN 

SETF  /A2S  /A24  /A23  /A22  A21  /A20  /A19  /A18  /A17 

CHECK  /ROMS?  /lOS?  RAMS?  /ARYS?  /CIIN 

SETF  /A25  /A24  /A23  A22  /A21  A20  /A19  /AIS  /A17 

CHECK  /ROMSP  /IQS?  RAHSP  /ARYS?  /CUM 

SETF  /A25  /A24  /A23  A22  A21  /A20  /A19  /A18  /A17 

CHECK  /ROMS?  /lOS?  RAHSP  /ARYS?  /CIIN 

SETF  /A2S  /A24  /A23  A22  A2 !  A20  /A19  /A18  /A17 

CHECK  /ROMS?  /lOSP  RAHSP  /ARYS?  /CIIN 

SETF  /A25  /A24  A23  /A22  /A21  /A20  /A19  /AIS  /A17 

CHECK  /ROMSP  /IQS?  RAMS?  /ARYS?  /CIIN 

SETF  /A2S  /A24  A23  /A22  /A21  A20  /A19  /AIS  /A17 

CHECK  /ROMS?  /lOS?  RAMS?  /ARYS?  /CIIN 

SETF  /A25  /A24  A23  /a22  ;i21  / i\.20  /A19  /A18  /A17 

CHECK  /ROMS?  /lUSP  .RAHSP  /ARYS?  /CIIN 

SETF  /A25  /A24  A23  A22  /A21  A20  /A19  /AIS  /A17 

CHECK  /ROMS?  /lOS?  RAHSP  /AiiYSl>  /CIIH 

SETF  /A25  /A24  A23  A22  A21  ASO  /A19  /AIS  /A17 

CHECK  /ROMS?  /FOS?  K;.MS?  /AiiV;:?  /CIIN 

SETF  /A25  /A24  A23  A22  A 2  I  A20  /A  19  /AIS  /A  17 
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CHECK  /ROMS?  /lOSP  RAHSl’  /AKYSP  /CIIN 
:  Check  Array  space. 

SETF  /A25  A24  /A23  /A22  /A21  /A20  /A19  /A13  /A17 

CHECK  /ROMSP  /lOSP  /RAMSP  ARYSP  CIIN 

SETF  A2S  /A24  /A23  /A22  /A21  /A20  /A19  /A13  /A17 

CHECK  /ROMS?  /lOSP  /RAMSP  ARYSP  CIIN 

SETF  A25  A24  /A23  /A22  /A21  /A20  /A19  /A13  /A17 

CHECK  /ROMS?  /lOSP  /RAMS?  ARYSP  CIIN 

;  Check  during  RESET. 

SETF  RESET 
:  Check  ROM  space. 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  /A19  /AIS  /A17 
CHECK  /ROMS?  /lOSP  /RAMSP  /ARYSP  /CIIN 

;  Check  I/O  space. 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  /A19  /AIS  A17 

CHECK  /ROMSP  /lOS?  /RAMS?  /ARYSP  /CIIN 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  /A19  A13  /A17 

CHECK  /ROMSP  /lOSP  /RAMSP  /ARYSP  /CIIN 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  /A19  AlS  A17 

CHECK  /ROMS?  /lOSP  /RAMS?  /ARYSP  /CIIN 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  A19  /A18  /A17 

CHECK  /ROUS?  /lOS?  /RAMS?  /A.RYSP  /CIIN 

SETF  /A25  /A24  /A23  /A22  /A2i  /A20  A19  /A13  A17 

CHECK  /ROMS?  /lOSP  /RAMS?  /ARYSP  /CIIN 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  A19  AIS  /Al7 

CHECK  /ROMSP  /lOSP  /RAMSP  /ARYSP  /CIIN 

SETF  /A25  /A24  /A23  /A22  /A2:  /A20  A19  AIS  A17 

CHECK  /ROMS?  /lOS?  /RAMSP  /ARYSP  /CIIN 

;  Check  RAM  space. 

SETF  /A25  /A24  /A23  /A22  /A21  A20  /A19  /AlS  /A17 

CHECK  /ROMS?  /lOSP  /RAMSP  /ARYSP  /CIIN 

SETF  /A25  /A24  /A23  /A22  A21  /A20  /A19'  /AIS  /A17 

CHECK  /ROMS?  /lOSP  /RAMS?  /ARYSP  /CIIN 

SETF  /A2S  /A24  /A23  A22  /A21  A20  /A19  /AIS  /A17 

CHECK  /ROMS?  /lOSP  /RAMSP  /ARYSP  /CIIN 

SETF  /A25  /A24  /A23  A22  A21  /A20  /A19  /A18  /A17 

CHECK  /ROMSP  /IDS?  /RAMSP  /ARYSP  /CIIN 

SETF  /A25  /A24  /A23  A22  A21  A20  /A19  /AIS  /A17 

CHECK  /ROMSP  /lOS?  /RAMSP  /ARYSP  /CIIN 

SETF  /A25  /A24  A23  /A22  /A21  /A20  /A19  /AlS  /A17 

CHECK  /ROMSP  /lOSP  /RAMSP  /ARYSP  /CIIN 

SETF  /A25  /A24  A23  /A22  /A21  A20  /A19  /AIS  /A17 

CHECK  /ROMSP  /lOSP  /RAMSP  /ARYSP  /CIIN 

SETF  /A25  /A24  A23  /A22  A21  /A20  /A19  /AIS  /A17 

CHECK  /ROMSP  /lOSP  /RAMSP  /ARYSP  /CIIN 

SETF  /A25  /A24  A23  A22  /A21  A20  /A19  /AIS  /A17 

CHECK  /ROMSP  /lOSP  /RAMSP  /ARYSP  /CIIN 

SETF  /A25  /A24  A23  A22  A2l  /A20  /A19  /AIS  /A17 

CHECK  /ROMSP  /lOSP  /RAMSP  /ARYSP  /CIIN 

SETF  /A25  /A24  A23  A22  A21  A20  /A19  /AIS  /A17 

CHECK  /ROMSP  /lOSP  /RAMSP  /ARYSP  /CIIN 

;  Check  Array  space. 

SETF  /A25  A24  /A23  /A22  /A21  /A20  /Al9  /AlS  /Al7 

CHECK  /ROMS?  /lOSP  /RAMSP  /ARYSP  /CIIN 

SETF  A25  /A24  /A2?-  /A22  /A2!  /A20  /A19  /AIS  /A17 

CHECK  /ROMSP  /lOSP  /RAMSP  /ARYSP  /CIIN 

SETF  A25  A24  /A23  /A22  /A'.;  I  /A20  /A  19  /AlS  /A17 
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CHECK  /ROMSP  /lOSP  /RAHSP  /ARYSP  /CIIH 
;  Check  in  CPU  space. 

SETF  /RESET  FC2  FCl  FCO 
;  Check  ROH  space. 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  /A19  /AIS  /A17 
CHECK  /ROMSP  /lOSP  /RAMSP  /ARY3P  /CIIH 

;  Check  I/O  space. 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  /A19  /AIS  A17 

CHECK  /ROMS?  /lOSP  /RAMSP  /ARYSP  /CIIH 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  /A19  A13  /A17 

CHECK  /ROMSP  /lOSP  /RAMSP  /ARYSP  /CIIH 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  /A19  A18  A17 

CHECK  /ROMS?  /lOSP  /RAMSP  /ARYSP  /CIIN 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  A19  /A18  /A17 

CHECK  /ROMS?  /lOSP  /RAMS?  /ARYSP  /CUM 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  A19  /A18  A17 

CHECK  /ROMS?  /lOSP  /RAMS?  /ARYSP  /CUM 

SETF  /A2S  /A24  /A23  /A22  /A21  /A20  A19  A13  /A17 

CHECK  /ROMS?  /lOS?  /RAHSP  /ARYSP  /CIIH 

SETF  /A25  /A24  /A23  /A22  /A21  /A20  A19  A18  A17 

CHECK  /ROMS?  /ICS?  /RAKS?  /ARYSP  /CIIK 

;  Check'  RAH ' space . 

SETF  /A25  /A24  /A23  /A22  /A21  A20  /A19  /A18  /A17 

CHECK  /ROMS?  /lOSP  /RAMS?  /ARYSP  /CIIN 

SETF  /A25  /A24  /A23  /A22  A21  /A20  /A19  /A18  /A17 

CHECK  /ROMS?  /lOS?  /RAMS?  /ARYSP  /CUM 

SETF  /A2S  /A24  /A23  A22  /A21  A20  /A19  /A18  /A17 

CHECK  /ROMS?  /lOS?  /RAMS?  /ARYSP  /CUM 

SETF  /A25  /A24  /A23  A22  A21  /A20  /A19  /A18  /A17 

CHECK  /ROMS?  /lOS?  /RAMSP  /ARYSP  /CIIN 

SETF  /A25  /A24  /A23  A22  A21  A20  /A19  /A18  /A17 

CHECK  /ROMS?  /lOS?  /RAMSP  /ARYSP  /CIIN- 

SETF  /A25  /A24  A23  /A22  /A21  /A20  /A19  /AlS  /A17 

CHECK  /ROMS?  /lOSP  /RAMS?  /ARYSP  /CUM 

SETF  /A25  /A24  A23  /A22  /A21  A20  /A19  /A18  /A17 

CHECK  /ROMSP  /lOSP  /RAHSP  /ARYSP  /CIIN 

SETF  /A25  /A24  A23  /A22  A21  /A20  /A19  /A18  /A17 

CHECK  /ROMSP  /lOSP  /RAHSP  /ARYSP  /CIIH 

SETF  /A25  /A24  A23  A22  /A21  A20  /A19  /A18  /A17 

CHECK  /ROMS?  /lOSP  /RAMSP  /ARYSP  /CIIN 

SETF  /A25  /A24  A23  A22  A2l  /A20  /A19  /A18  /A17 

CHECK  /ROMS?  /lOSP  /RAMSP  /ARYSP  /CIIN 

SETF  /A2S  /A24  A23  A22  A21  A20  /A19  /AIS  /A17 

CHECK  /ROMS?  /IQSP  /RAHSP  /ARYSP  /CIIH 

;  Check  Array  space. 

SETF  /A25  A24  /A23  /A22  /A21  /A20  /A19  /AIS  /A17 

CHECK  /ROMSP  /ICSP  /RAMSP  /ARYSP  /CIIN 

SETF  A25  /A24  /A23  /A22  /A21  /A'20  /A19  /AIS  /A17 

CHECK  /ROMSP  /lOSP  /RAMS?  /ARYSP  /CIIH 

SETF  A25  A24  /A23  /A22  /A21  /A20  /A19  /AIS  /A17 

CHECK  /ROMS?  /lOSP  /RAHSP  /ARYSP  /CIIH 

;  Check  interrupt  autovector. 

SETF  /RESET  FCO  FCl  FCO  A 19  AIS  A 17  A 16 

CLOCKF 

CHECK  AVEC 

SETF  RESET  FC2  FCl  FCO  A 19  AlS  A  1 7  A  1C 

CLOCKF 

CHECK  /AVEC 
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SETF  /RESET  /FC2  FCl  FCO  A 19  A 13  A17  A16 

CLOCKF 

CHECK  /AVEC 

SETF  /RESET  FC2  /FCl  FCO  A19  A13  A17  A16 

CLOCKF 

CHECK  /AVEC 

SETF  /RESET  FC2  FCl  /FCO  A19  A13  A17  A16 

CLOCKF 

CHECK  /AVEC 

SETF  /RESET  FC2  FCl  FCO  /A19  A13  A17  A16 

CLOCKF 

CHECK  /AVEC 

SETF  /RESET  FC2  FCl  FCO  A19  /A13  A17  A16 

CLOCKF 

CHECK  /AVEC 

SETF  /RESET  FC2  FCl  FCO  A19  A13  /A17  A16 

CLOCKF 

CHECK  /AVEC 

SETF  /RESET  FC2  FCl  FCO  A19  A13  A17  /A16 

CLOCKF 

CHECK  /AVEC 

TRACE_OFF 


C.5  PAI.IA 

TITLE  UU/UH/LM/LL  DECODER,  DSACK  GENERATOR 

PATTERN  PALI 

REVISION  1.3 

AUTHOR  JON  MELLOTT 

COMPANY  ARRAY  PROJECT 

DATE  8-29-90 

:  PALI  MUST  BE  PAL1SL8-7  DC 

;  —  PAL16L8-7  —  7.5  ns 

;  —  D:  ceramic  package 

;  —  C:  Commercial  grade 

:  DESCRIPTION: 

PALI  provides  byte  select  generation  and  decoding  according  to  tne 
;  following  table  where  the  mnemonics  UU,  UM,  LM,  and  LL  represent  byte 
;  selects  for  the  next  to  most  significant  byte,  next  most  significant 

;  byte,  next  to  least  significant  byte,  and  the  least  significant  byte 


of 

A1 

the  data  word 

AO  SIZl  SIZO 

1 

UU 

UH 

LH 

LL 

0 

0 

0 

0 

1 

1 

1 

1 

1 

0 

0 

0 

1 

1 

0 

0 

0 

1 

0 

0 

1 

0 

1 

0 

0 

1 

1 

0 

0 

1 

1 

1 

0 

1 

1 

1 

0 

1 

0 

0 

1 

1 

1 

1 

0 

0 

1 

0 

1 

1 

0 

0 

1 

0 

0 

1 

1 

0 

1 

0 

1 

1 

0 

0 

1 

1 

1 

1 

1 

1 

1 

0 

1 

0 

0 

0 

i 

1 

: 

0 

0 

1 

0 

0 

1 

1 

0 

1 

0 

0 

1 

0 

1 

0 

1 

1 

1 

0  , 

0 

1 

0 

1 

t 

1 

1 

1 

C) 

0 
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;  1 

1  0  0 

1  1  0  0  0 

;  1 

1  0  1 

1  1  0  0  0 

:  1 

1  1  0 

1  1  0  0  0 

:  1 

1  1  1 

1  1  0  0  0 

» 

;  Additionally, 

the  PAL  provides  DSACK 

gene 

;  SCSI,  ROM,  and 

I/O  expansion  slot. 

CHIP  PALI  PAL16LS 

PIN  1 

SIZO 

COMBINATORIAL 

INPUT 

PIN  2 

SIZl 

COMBINATORIAL 

INPUT 

PIN  3 

AO 

C0M5IMAT0RIAL 

INPUT 

PIN  4 

Al 

COMBINATORIAL 

INPUT 

PIN  5 

/SCSIDTACK 

COMBINATORIAL 

INPUT 

PIN  6 

/SIODTACK 

COMBINATORIAL 

INPUT 

PIN  7 

/I08DTACK 

COHEIHATG.RIAL 

INPUT 

PIN  8 

/I016DTACK 

COMBINATORIAL 

INPUT 

PIN  9 

/I032DTACK 

C0H3  INATGP.I  -AL 

INPUT 

PIN  10 

GND 

GROUNO 

RAIL 

PIN  11 

/RQHDTACK 

COMBINATORIAL 

INPUT 

PIN  12 

/UU 

COMBINATORIAL 

OUTPUT 

PIN  13 

/UM 

COHBIHATCRIAL 

OUTPUT 

PIN  14 

/LM 

CQHBIWATCaiAL 

OUTPUT 

PIN  15 

/LL 

COMBINATORIAL 

OUTPUT 

PIN  16 

/DSACKO 

COMBINATORIAL 

OUTPUT 

PIN  17 

/DSACKl 

C0H3IHAT0.RIAL  ; 

OUTPUT 

PIN  20 

vcc 

SUPPLY 

R.AIL 

STRING 

DT3  '(/SIZl 

*  /SIZO)  -  (Ai 

*  AO)  + 

(si: 

STRING 

DT2  '(Al  *  /AO)  + 

/Al  ‘  (/SIZl  «  /SIZO  + 

SIZl 

STRING 

DTI  '(/Al  * 

AO)  T  (/SIZO  * 

/Al)  t 

(SIZ 

STRING 

DTO  ’  /Al  * 

/AO  ’ 

Al)  +  (SIZl  *  SIZO  *  AO)^ 


/Al)  ^ 


STRING  EIGHT3ITP0RT  ’  SCSIDTACRi-SIODTACK-i-IQSDTACK+aOHDTACK  ' 
STRING  SIXTEENSITPORT  ’I016DTACK’ 

STRING  THIRTYTW03ITPORT  'IGSETTACK' 


EQUATIONS 

;  Byte  select  equations. 

UU  =  (DT3) 

UM  =  (DT2) 

LM  =  (DTI) 

LL  =  (DTO) 

;  Data  Strobe  Acknowledge  signals. 

DSACKO  =  EIGHTBITPORT  +  TKIRTYTUOBITPORT 
DSACKl  =  SIXTEENBITPORT  +  THIRTVTyOBITPORT 

SIMULATION 

;  Check  byte  select  logic. 

TRACE.ON  SIZl  SIZO  Al  AO  UU  UH  LM  LL 

SETF  /SIZl  /SIZO  /Al  /AO 

CHECK  UU  UM  LM  LL 

SETF  /SIZl  /SIZO  /Al  AO 

CHECK  UU  UH  LH  /LL 

SETF  /SIZl  /SIZO  Al  /AO 

CHECK  UU  UM  /LM  /LL 

SETF  /SIZl  /SIZO  Al  AO 

CHECK  UU  /UM  /LH  /LI. 
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SETF  /SI21  SIZO  /A1  /AO 
CHECK  /UU  /UH  /LH  LL 
SETF  /SIZl  SIZO  /A1  AO 
CHECK  /UU  /UH  LH  /LL 
SETF  /SIZl  SIZO  A1  /AO 
CHECK  /UU  UH  /LH  /LL 
SETF  /SIZl  SIZO  A1  AO 
CHECK  UU  /UH  /LH  /LL 
SETF  SIZl  /SIZO  /A1  /AO 
CHECK  /UU  /UM  LH  LL 
SETF  SIZl  /SIZO  /A1  AO 
CHECK  /UU  UH  LH  /LL 
SETF  SIZl  /SIZO  A1  /AO 
CHECK  UU  UM  /LH  /LL 
SETF  SIZl  /SIZO  A1  AO 
CHECK  UU  /UH  /LH  /LL 
SETF  SIZl  SIZO  /A1  /AO 
CHECK  /UU  UM  LH  LL 
SETF  SIZl  SIZO  /A1  AO 
CHECK  UU  UH  LH  /LL 
SETF  SIZl  SIZO  A1  /AO 
CHECK  UU  UM  /LH  /LL 
SETF  SIZl  SIZO  A1  AO 
CHECK  UU  /UH  /LH  /LL 
TRACE_OFF 

;  Check  DSACK  generation  logic. 

TRACE_ON  SCSIDTACK  SIODTACK  I08DTACK  I016DTACK  I032DTACK 
P''"”’DTACK  DSACKl  DSACKO 

SEIF  /SCSIDTACK  /SIODTACK  /lOSDTACK  /I016DTACK  /I032DTACK  /ROHDTACK 
CHECK  /DSACKl  /DSACKO 

SETF  SCSIDTACK  /SIODTACK  /lOSDTACK  /lOiSDTACK  /I032DTACK  /ROHDTACK 
CHECK  /DSACKl  DSACKO 

SETF  /SCSIDTACK  /SIODTACK  /lOSDTACK  /I016DTACK  /I032DTACK  /ROHDTACK 
CHECK  /DSACKl  /DSACKO 

SETF  /SCSIDTACK  SIODTACK  /lOSDTACK  /I016DTACK  /I032DTACK  /ROHDTACK 
CHECK  /DSACKl  DSACKO 

SETF  /SCSIDTACK  /SIODTACK  /lOSDTACK  /I016DTACK  /I032DTACK  /ROHDTACK 
CHECK  /DSACKl  /DSACKO 

SETF  /SCSIDTACK  /SIODTACK  lOSDTACK  /I016DTACK  /I032DTACK  /ROHDTACK 
CHECK  /DSACKl  DSACKO 

SETF  /SCSIDTACK  /SIODTACK  /lOSDTACK  /I016DTACK  /IQ32DTACK  /ROHDTACK 
CHECK  /DSACKl  /DSACKO 

SETF  /SCSIDTACK  /SIODTACK  /lOSDTACK  /I016DTACK  /I032DTACK  ROHDTACK 
CHECK  /DSACKl  DSACKO 

SETF  /SCSIDTACK  /SIODTACK  /lOSDTACK  /I016DTACK  /I032DTACK  /ROHDTACK 
CHECK  /DSACKl  /DSACKO 

SETF  /SCSIDTACK  /SIODTACK  /lOSDTACK  I016DTACK  /I032DTACK  /ROHDTACK 
CHECK  DSACKl  /DSACKO 

SETF  /SCSIDTACK  /SIODTACK  /lOSDTACK  /I016DTACK  /I032DTACK  /ROHDTACK 
CHECK  /DSACKl  /DSACKO 

SETF  /SCSIDTACK  /SIODTACK  /lOoDTACK  /lOloDTACK  I032DTACK  /ROHDTACK 
CHECK  DSACKl  DSACKO 

SETF  /SCSIDTACK  /SIODTACK  /lOSDTACK  /I016DTACK  /I032DTACK  /ROHDTACK 
CHECK  /DSACKl  /DSACKO 
TRACE. OFF 
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C-G  PAL:;15 


TITLE  ADDRESS  SPACE  DFX*nDER 
PATTERN  PAL3B 
REVISION  1.3 
AUTHOR  JON  MELLOTT 
COMPANY  ARRAY  PROJECT 
DATE  1-10-92 

;  PAL3E  MUST  BE  PALCE16V3-10  pC 
;  —  PALCE16V3-10  —  10  ns 

;  —  P:  plastic  package 

;  —  C:  Commercial  grade 

;  DESCH-IPTIOrl : 

;  This  PAL  implements  a  state  machine  which  controls  access  to  the 
;  EPROM  array . 

CHIP  PAL3S  PALCE16VS 
;  PIT  DECLARATIONS 


PIN 

1 

CLK 

CCM3IMAT0RIAL 

INPUT  CLOCK 

PIN 

2 

/RESET 

COMBINATORIAL 

INPUT 

PIN 

3 

/ROMS? 

COMBINATORIAL 

INPUT 

PIN- 

4 

RW 

COMBINATORIAL 

INPUT 

PIN 

5 

/AS 

COMBINATORIAL 

INPUT 

PIN 

10 

GND 

SUPPLY  RAIL 

PIN 

14 

/D30UT 

REGISTERED 

REGISTERED  OUTPUT 

PIN 

15 

SVl 

REGISTERED 

REGISTERED  OUTPUT 

PIN 

16 

svo 

R.EGI5TERED 

REGISTERED  OUTPUT 

T  ■  r  ’  ^ 

IS 

/U'^'ACK 

HP''' JST 

RPCIS''’'X -D  OUTPU'^' 

PIN 

20 

VCC 

SUPPLY  RAIL 

STATE 

MOORE^MACHINE 
DEFAULT^BRANCK  SO 


STATE  DEFINITIONS 


/DBOUT  * 

/SVl 

* 

/SVC 

* 

/DTACK 

/DBOUT  » 

/SVl 

svo 

♦ 

DTACK 

/DEO'JT  » 

SVl 

* 

/svo 

* 

/DTACK 

DBCUT  * 

SVl 

svo 

* 

DT  A  CK 

DBOUT  ♦ 

/SVl 

* 

/svo 

/DTACK 

;  STATE  TRANSITION  EQUATIONS 

50  :=  WAIT  ->  SO 

+  WRITE  ->  Si 
+  READ  ->  S3 

;  Write  cycle 

51  :=  VCC  ->  S2 

52  :=  VCC  ->  SO 
;  Read  cycle 

53  :=  VCC  ->  S4 


S4  :=  VCC  ->  SO 
CONDITIONS 

WAIT  =  /ROHSP  R.ESET 

WRITE  =  ROMSP  ^  AS  ^  /RU  t  /RESET 

READ  =  ROHSP  ♦  A5'.  ‘  RU  t  /RESET 

EQUATIONS 

SIMULATION 
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TRACE.ON  RESET  ROMSP  RV  AS  DliUUT  SVl  SVO  DTACK 

;  Perform  a  RESET. 

SETF  RESET  /CLK 
CLOCKF 

CHECK  /DBOUT  /SVl  /SVO  /DTACK 
:  r.>ld. 

SETF  /RESET  /ROHSP  RW  /AS 
CLOCKF 

CHECK  /DBOUT  /SVl  /SVO  /DTACK 
;  Perform  a  read  cycle. 

SETF  ROMSP  AS  RW 
CLOCKF 

CHECK  DBOUT  SVl  SVO  DTACK 
CLOCKF 

CHECK  DBOUT  /SVl  /SVO  /DTACK 

SETF  /AS 

CLOCKF 

CHECK  /DBOUT  /SVl  /SVO  /DTACK 
;  Perform  a  "write"  cycle. 

SETF  ROMSP  AS  /RU 
CLOCKF 

CHECK  /DBOUT  /SVl  SVO  DTACK 
CLOCKF 

CHECK  /DBOUT  SVl  /SVO  /DTACK 

SETF  /AS 

CLOCKF 

CHECK  /DBOUT  /SVl  /SVO  /DTACK 
TRACE_OFf 


C.7  PAIA 

TITLE  UU/UM/LM/LL  SCRAM  OE/WRITE  EKCODER 

PATTERN  PAL4 

REVISION  1.0 

AUTHOR  JON  MELLOTT 

COMPANY  ARRAY  PROJECT 

DATE  5-28-90 

;  PAL-i  MUST  BE  PAL16LS-7  DC 
;  —  PAL16L8-7  —  7.5  ns 

;  —  D:  ceramic  package 

;  —  C:  Commercial  grade 

;  DESCRIPTION: 

;  PAL4  provides  gated  chip  selects  {UU/UM/LM/LLjCS  for  the  SCRAM  array. 
:  PAL4  also  provides  the  RAH  bank  select  signal. 

CHIP  PAL4  PAL16LS 

;PINS  12  3  4  5  6  789  10 

/UU  /UM  /LH  /LL  /CS  /CSALL  A20  A21  A22  GND 

;PINS  11  12  13  14  15  16  17  18  19  20 

A23  /UUCS  /UHCS  /LHCS  /LLCS  /BANKSEL  NC  NC  MC  VCC 

EQUATIONS 

:  CHIP  SELECT  EQUATIONS 

UUCS  =  CS»(CSALL+UU) 

UMCS  =  CS»(CSALL(-UH; 

LMCS  =  CS*(CSALL+LH) 

LLCS  =  CS*■(CSALL^LL) 
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ISO 


;  BANK  SELECT  EQUATIGM 

BANKSEL  =  /A23  *  /A22  *  /A2i  -  A20 

SIMULATION 

:  CHI?  SELECT  SIMULATION. 

TRACE.O.N  UU  UH  LH  LL  CS  CSALL  UUCS  UMCS  L.MCS  LLCS 

SETr  /UU  /UM  /LM  /LL  /CS  /CSALL 
CHECK  /UUCS  /UMCS  /LMCS  /LLCS 
SETF  UU  UM  LH  LL  /CS  /CSALL 
CHECK  /UUCS  /UMCS  /LMCS  /LLCS 
SETF  UU  /UH  /LM  /LL  CS  /CSALL 
CHECK  UUCS  /UHCS  /LMCS  /LLCS 
SETF  /UU  UM  /LH  /LL  CS  /CSALL 
CHECK  /UUCS  UHCS  /LMCS  /LLCS 
SETF  /UU  /UM  LH  /LL  CS  /CSALL 
CHECK  /UUCS  /UHCS  LHCS  /LLCS 
SET?  /UU  /UH  /LM  LL  CS  /CSALL 
CHECK  /UUCS  /UHCS  /LMCS  LLCS 
SETF  UU  /UH  LM  /LL  CS  CSALL 
CHECK  UUCS  UHCS  LHCS  LLCS 
SETF  UU  /UH  LH  /LL  /CS  CSALL 
CHECK  /UUCS  /UMCS  /LMCS  /LLCS 

T.RACE.OFF 

;  BANK  SELECT  SIMULATION. 

T.RACF.._ON  A23  .ACC  A21  A20  BANKSEL 


CHECK  /BANKSEL 

/'  A  .L  j. 

/  A  A  U 

SETF  /A23  /A22 
CHECK  BANKSEL 

/A21 

A20 

SETF  /A23  /A22 
CHECK  /BANKSEL 

A21 

/A20 

SETF  /A23  /A22 
CHECK  /BANKSEL 

A21 

A20 

SET?  /A23  A22 

CHECK  /BANKSEL 

/A21 

/A20 

SETF  /A23  A22 

CHECK  /BANKSEL 

/A21 

A20 

SETF  /A23  A22 

CHECK  /BANKSEL 

A21 

/A20 

SETF  /A23  A22 

CHECK  /BANKSEL 

A2i 

A20 

SETF  A23  /A22 
CHECK  /BANKSEL 

/A21 

/A20 

SETF  A23  /A22 
CHECK  /BANKSEL 

/A21 

A20 

SETF  A23  /A22 
CHECK  /BANKSEL 

A21 

/A20 

SETF  A23  /A22 
CHECK  /BANKSEL 

A21 

A20 

SETF  A23  A22 

CHECK  /BA.NKSEL 

/A21 

/A20 

SETF  A23  A22 

CHECK  /BANKSEL 

/A21 

A20 

SETF  A23  A22 

CHECK  /BANKSEL 

A21 

/A20 

SETF  A23  A22 

CHECK  /BANKSEL 

A21 

A20 
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T?.ACE_OFF 


bus 

data 

transceiver 

direction. 

8 

9 

10 

11 

12 

13 

AlS 

A16 

A17 

AlS 

GND 

A19 

19 

20 

21 

22 

23 

24 

/SIOl  NC 

/lOSP 

/AS 

/OET 

VCC 

C.S  I’M/) 

TITLE  I/O  ADDRESS  SPACE  DECODER 

PATTERN  PALS 

REVISION  1.0 

AUTHOR  JON  MELLOTT 

COMPANY  ARRAY  PROJECT 

DATE  5-26-90 

PALO  MUST  BE  PAL22V10-10  DC 
—  PAL22V10-10  —  10  ns 
—  D:  ceramic  package 
—  C:  Commercial  grade 

DESCRIPTION; 

This  PAL  decodes  I/O  space  selects  for  I/O  devices. 
The  memory  map  is  described  elsewhere. 


CHIP  PALS  PAL22V10 

;PINS  1  2  3  4  5  6  7 

AS  AS  AlO  All  A12  A13  A14 

;PINS  14  15  16  17  18 

RW  /OE.R  /SCSIlBuF  /SCSIl  /SCSIDE 

EQUATIONS 

;  Additional  inputs. 
lOSP.TRST  =  GND 

AS.TRST  =  GND 

RW.TRST  =  GND 

;  First  SCSI  device  (SCSIl). 

SCSIl  =  /A19  *  /A18  *  A17  *  /A16  ♦  /A15  *  /A14  *  /A13  ♦  /A12.  * 

/All  *  /AlO  *  /A9  *  /AS  *  AS  *  lOSP 

;  SCSI  device  buffer  memory  (SCSIlBUF). 

SCSIlBUF  =  /A19  *  /A13  *  A17  ♦  /A16  *  (Al5  *  /A14  *  /A13  *  /A12  + 

/AlS  *  (AlO  +  A13  +  A14)) 

;  SCSI  DBA  mode  control  register  (SCSIDBA). 

SCSIDBA  =  /A19  ♦  /A18  *  A17  *  /A16  *  /A15  *  /A14  *  /A13  *  /A12  * 

/All  *  /AlO  *  /A9  ♦  AS  *  AS  ♦  lOSP 

;  First  serial  I/O  device  (SIOl). 

SIOl  =  /A19  »  /A18  *  A17  *  /A16  »  /AlS  *  /A14  *  /A13  *  /A12  * 

All  *  /AlO  *  /A9  ♦  /AS  ♦  AS  *  lOSP 

;  Data  from  CPU  to  I/O  bus  direction. 

OER  =  /RW  ♦  AS  *  lOSP 

Data  from  I/O  bus  to  CPU  bus  direction. 

OET  =  RW  *  AS  ♦  lOSP 

SIMULATION 

TRACE  ON  A19  AlS  A17  AlS  AlS  A14  A13  A12  All  AlO  A9  A8  AS  lOSP 
SCSIl  SCSIDBA  SIOl 
SETF  lOSP 

SETF  /A19  /AlS  A17  /AIC  /AlS  /A14  /A1 
CHECK  SCSIl  /SCSI  IHUF  /SCSIDBA  /SIOl 
SETF  /A19  /AlS  A17  /AH?  /AlS  /A14  /A1 
CHECK  /SCSIl  /SCSIIBUE  SCSIDBA  /SIOl 


(25) 


3  /A12  /All  /AlO  /A9  /A8  AS 
3  /A12  /All  /A1oVa9  A8 
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SETF  /A19  /AIS  A17  /AIS  /A15  /Ai4  /A13  /A12  /All  /AlO  A9  /AS 
CHECK  /SCSIl  /SCSIIBUF  /SC3IDBA  /SIOl 

SETF  /A19  /A18  A17  /A16  /A15  /A14  /A13  /A12  /All  /AlO  A9  AS 

CHECK  /SCSIl  /SCSIIBUF  /SCSIDBA  /SIOl 

SETF  /A19  /AIS  A17  /A16  /A15  /A14  /A13  /A12  All  /AlO  /A9  /AS 
CHECK  /SCSIl  /SCSIIBUF  /SCSIDBA  SIOl 

SETF  /A19  /AIS  A17  /A16  /A  15  /A14  /A13  A12  /All  /AlO  /A9  /AS 

CHECK  /SCSIl  SCSIIBUF  /SCSIDBA  /SIOl 

SETF  /A19  /AIS  A17  /AIS  /A15  /A14  /A13  A12  /All  /AlO  /A9  /AS 

CHECK  /SCSIl  /SCSIDBA  /SIOl 

SETF  /lOSP 

SETF  /A19  /AIS  A17  /A16  /A15  /A14  /A13  /A12  /All  /AlO  /A9  /AS  AS 
CHECK  /SCSIl  /SCSIDBA  /SIOl 

SETF  /A19  /AIS  A17  /AIS  /A15  /A14  /A13  /A12  /All  /AlO  /A9  AS 
CHECK  /SCSIl  /SCSIDBA  /SIOl 

SETF  /A19  /AIS  A17  /AIS  /AlS  /A14  /A13  /A12  /All  /AlO  A9  /AS 
CHECK  /SCSIl  /SCSIDBA  /SIOl 

SETF  /A19  /AIS  A17  /AlS  /A15  /A14  /A13  /A12  /All  /AlO  A9  AS 
CHECK  /SCSIl  /SCSIDBA  /SICl 

SETF  /A19  /AlS  A17  /AIS  /A15  /A14  /A13  /A12  All  /AlO  /A9  /AS 
CHECK  /SCSIl  /SCSIDBA  /SIOl 

SETF  /A19  /AIS  A17  /A16  /A15  /A14  /A13  A12  /All  /AlO  /A9  /AS 

CHECK  /SCSIl  /SCSIDBA  /SIOl 

TRACE.OFF 

TRACE_ON  Rw  AS  IDS?  OER  GET 

SEir  RW  /AS 
CHECK  /OER  /OET 
SETF  RW  AS 
CHECK  /OER  OET 
SETF  /RW  /AS 
CHECK  /OER  /OET 
SETF  /RW  AS 
CHECK  OER  /OET 

SETF  /lOSP 
SETF  RW  /AS 
CHECK  /OER  /OET 
SETF  RW  AS 
CHECK  /OER  /OET 
SETF  /RW  /AS 
CHECK  /OER  /OET 
SETF  /RW  AS 
CHECK  /OER  /OET 
TRACE.OFF 


C.y  I ’ALT 

TITLE  ARRAY  BUS  IHTERFACE 
PATTERN  FAL7 
REVISION  1.0 
AUTHOR  JON  MELLOTT 
COMPA.NY  ARRAY  PROJECT 
DATE  3-19-91 


CHIP  PAL7  PAL22V10 
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PAL7  MUST  EE  PAL22V10-i0  DC 
--  PAL22V10-10  —  10  ns 
—  D:  ceramic  package 
—  C:  Commercial  grade 

PIN/NODE  DECLARATIONS 


:  P/N 

NAME 

PAIRED  WITH  PIN 

STORAGE  COMMENTS 

PIN 

12 

GND 

SUPPLY  RAIL 

PIN 

24 

VCC 

SUPPLY  RAIL 

PIN 

1 

/STERHO 

COMBINATORIAL 

INPUT 

PIN 

2 

/STERHl 

COMBINATORIAL 

INPUT 

PIN 

3 

/STERK2 

COMBINATORIAL 

INPUT 

PIN 

4 

/STERH3 

COMBINATORIAL 

INPUT 

PIN 

5 

/STERM4 

COMBINATORIAL 

INPUT 

PIN 

6 

/STERHS 

COMBINATORIAL 

INPUT 

PIN 

7 

/STERM6 

COMBINATORIAL 

INPUT 

PIN 

8 

/STERH7 

COMBINATORIAL 

INPUT 

PIN 

13 

/SLDTEHO 

COMBINATORIAL 

INPUT 

PIN 

17 

/SLOTEN 1 

COMBINATORIAL 

INPUT 

PIN 

18 

/SL0TEM2 

COMBINATORIAL 

INPUT 

PIN 

19 

/SL0TEN3 

COMBINATORIAL 

INPUT 

PIN 

20 

/SLQTEM4 

COMBINATORIAL 

INPUT 

PIN 

21 

/SL0TEN5 

COMBINATORIAL 

INPUT 

PIN 

22 

/SL0TEN6 

COMBINATORIAL 

INPUT 

PIN 

23 

/SL0TEN7 

COMBINATORIAL 

INPUT 

PIN 

16 

/ARYST 

COMBINATORIAL 

OUTPUT 

PIN 

9 

/ARYSP 

COMBINATORIAL 

INPUT 

PIN 

10 

/AS 

COMBINATORIAL 

INPUT 

PIN 

11 

RW 

COMBINATORIAL 

INPUT 

PIN 

14 

/OER 

COMBINATORIAL 

OUTPUT 

PIN 

15 

/OET 

COMBINATORIAL 

OUTPUT 

> 

EQUATIONS 

;  DATA  BUFFER  CONTROL 


OER  =  ARYSP  *  kS  *  /Rw 
OET  =  ARYSP  ♦  AS  *  RW 

;  STERM  CONTROL 

ARYST  =  (SL0TEN0»STERH0)+(SL0TEN1»STERH1)+(SL0TEN2*STERM2)+(SL0TEN3*STERM3) 
+  (SL0TEH4*STERH4)+(SL0TEN5*ST£RH5)+(SL0TEN6*STERM6)+(SL0TEN7*STERM7) 

SLOTENl.TRST  =  GMD 
SL0TEN2.TRST  =  GMD 
SL0TEN3.TRST  =  GMD 
SL0TEN4.TRST  =  GMD 
SL0TEN5.TRST  =  GMD 
SL0TEN6.TRST  =  GND 
SL0TEN7.TRST  =  GMD 

SIMULATION 

TRACE.ON  ARYSP  AS  RW  OER  OET 

SETF  /ARYSP  /AS  /RW 

CHECK  /OER  /OET 

SETF  /ARYSP  /AS  RW 

CHECK  /OER  /OET 

SETF  /ARYSP  AS  /RW 

CHECK  /OER  /OET 

SETF  /ARYSP  AS  RW 
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CHECK 

/OER  /OET 

SETF 

ARYSP  /AS 

/RW 

CHECK 

/OER  /OET 

SETF 

ARTS?  /AS 

RW 

CHECK 

/OER  /OET 

SETF 

ARYSP  AS 

/RW 

CHECK 

OER  /OET 

SETF 

ARYSP  AS 

RW 

CHECK 

/OER  OET 

TRACE. 

.OFF 

TRACE_OK  ARYST  SLOTSHO  SLOTEHl  SLQTENR  SLCTEH3  SLOTER4  SL0TEH5  SLOTE2J6 
SL0TEN7  STERMO  STERMl  STERM2  STERMS  STERM4  STERMS  STSR,M6  STERM7 
SEIF  /SLOTEWO  /SLOTEHl  /SL0TEH2  /SL0TEH3  /SL0TEH4  /SLOTENS  /SL0TEH6  /SL0TSN7 
SE7F  /STERMO  /STERMl  /STERH2  /STERM3  /STERM4  /STERM5  /STERM6  /STERH7 
CHECK  /ARYST 
SETF  SLOTEMO  STERHO 
CHECK  ARYST 


SETF  /STERMO 
CHECK  ARYST 
SETF  /STERMl 
CHECK  ARYST 
SETF  /STERM2 
CHECK  ARYST 
SETF  /STERK3 
CHECK  ARYST 
SET?  /STERH4 
CHECK  ARYST 
c;2;*T';v  /"IT 


SLOTENl  STERMl 


SL0TEM2  STERH2 
SL07EH3  STERH3 
SLQTEN4  STERH4 
SLOTENS  STERM5 

STERMO 


CHECK  AKYSO' 

SETF  /STERHS  SL0TEH7  STERMl 

CHECK  ARYST 

TRACE_GrF 


C.iO  PAL12 

TITLE  ESCC  (SIO)  CONTROLLER  STATE  MACHINE 

PATTERN  PAL 12 

REVISION  1.0 

AUTHOR  JON  MELLOTT 

COMPANY  ARRAY  PROJECT 

DATE  9-13-90 

;  PAL12  MUST  3E  PAL22Vi0-0  DC 
;  —  PAL22V10-10  DC  --  10  ns 

;  —  D:  ceramic  package 

;  —  C:  Commercial  grade 

;  DESCRIPTION: 

;  This  PAL  implements  the  controller  state  machine  for  the  serial 
;  I/O  module. 

;  Additionally,  this  PAL  controls  access  to  a  register  which 
;  is  used  to  control  the  SCSI  state  machine.  Access  to  the  register 

;  is  requested  using  SCSIDBA.  The  access  is  terminated  using 

;  the  regular  SIODTACK. 

CHIP  PAL12  PAL22V10 

;  PIN  DECLARATIONS 

PIN  1  CLK20  CGHHIMATORIAL  ;  INPUT 
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PIN 

2 

/SIOl 

COMBINATORIAL 

INPUT 

PIN 

3 

RW 

COMBINATORIAL 

INPUT 

PIN 

4 

/SCSIDBA 

COMBINATORIAL 

INPUT 

PIN 

12 

GND 

SUPPLY  RAIL 

PIN 

14 

/RD 

REGISTERED 

OUTPUT 

PIN 

15 

/WR 

REGISTERED 

OUTPUT 

PIN 

16 

/CE 

REGISTERED 

OUTPUT 

PIN 

17 

/OER 

REGISTERED 

OUTPUT 

PIN 

18 

/OET 

REGISTERED 

OUTPUT 

PIN 

19 

/DTACK 

REGISTERED 

OUTPUT 

PIN 

20 

/SVO 

REGISTERED 

OUTPUT 

PIN 

21 

/SVl 

REGISTERED 

OUTPUT 

PIN 

22 

/EN 

REGISTERED 

OUTPUT 

PIN 

24 

VCC 

SUPPLY  RAIL 

STATE 

MOORE.MACHIME 
DEFAULT_BRAHCH  SO 
START.UP  ;=  P0WER_UP  ->  SO 

:  STATE  DEFINITIONS 


;  Power-up  &  standby. 


SO  =  /RD  *  /WR 

* 

/CE 

/CER 

;  Read  cycle. 

RO  =  /RD  *  /WR 

* 

/CE 

/OER 

* 

R1  =  /RD  *  /WR 

* 

CE 

* 

/OER 

* 

R2  =  RD  *  /WR 

* 

CE 

* 

OER 

R3  =  RD  *  /WR 

* 

CE 

* 

OER 

* 

R4  =  RD  *  /WR 

* 

CE 

+ 

CER 

R5  =  RD  »  /WR 

* 

CE 

OER 

¥ 

;  Write  cycle. 

wo  =  /RD  »  /WR 

* 

/CE 

♦ 

/OER 

If 

W1  =  /RD  *  /WR 

* 

CE 

/OER 

W2  =  /RD  *  WR 

* 

CE 

* 

/OER 

* 

W3  =  /RD  *  WR 

* 

CE 

* 

/OER 

W4  =  /RD  *  ■  WR 

* 

CE 

/OER 

* 

;  System  I/O  register 

access 

BO  =  /RD  •  /WR 

* 

/CE 

♦ 

/OER 

* 

B1  =  /RD  »  /WR 

* 

/CE 

/OER 

;  STATE  TRANSITION  EQUATIONS 

;  WAIT  FOR  CYCLE  TO  START  ST, 

SO  :=  WAIT  ->  SO 

+  GO.READ  ->  RO 

+  GO.WRITE  ->  WO 

+  GO_BUFFER  ->  BO 


READ  CYCLE 


RO 

=  VCC  ->  R1 

R1 

=  VCC  ->  RO 

R2 

=  VCC  ->  R3 

R3 

=  VCC  ->  R4 

R4 

=  VCC  ->  R5 

R5 

=  VCC  ->  SO 

;  WRITE  CYCLE 

WO 

=  VCC  ->  yi 

W1 

=  VCC  V/2 

W2 

=  VCC  ->  y3 

W3 

=  VCC  Ul 

/OET 

* 

/DTACK 

/EN 

* 

/SVO 

/SVl 

/OET 

* 

/DTACK 

* 

/EN 

* 

SVO 

* 

/SVl 

/OET 

* 

/DTACK 

/EH 

* 

/SVO 

* 

/SVl 

/OET 

* 

/DTACK 

/EH 

* 

/SVO 

/SVl 

/OET 

* 

/DTACK 

/EN 

* 

SVO 

* 

/SVl 

/OET 

* 

/DTACK 

♦ 

/EN 

SVO 

* 

SVl 

/OET 

♦ 

DTACK 

* 

/EN 

* 

/SVO 

* 

SVl 

/OET 

♦ 

/DTACK 

♦ 

/EN 

* 

/SVO 

* 

SVl 

OET 

* 

/DTACK 

* 

/EN 

* 

/SVO 

* 

SVl 

OET 

* 

/DTACK 

* 

/EH 

* 

SVO 

* 

SVl 

OET 

/DTACK 

* 

/EH 

* 

SVO 

* 

/SVl 

OET 

* 

DTACK 

* 

/EH 

* 

/SVO 

♦ 

/SVl 

:ycle . 
/OET 

* 

/DTACK 

♦ 

EN 

♦ 

SVO 

SVl 

/OET 

DTACK 

/EN 

/SVO 

♦ 

/SVl 

,TE 
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W4  :=  VCC  ->  SO 

;  REGISTER  ACCESS  CYCLE 
BO  !=  VCC  ->  B1 
B1  :=  VCC  ->  SO 

CONDITIONS 
;  HOLD  AT  SO 

WAIT  =  /SIOl  ♦  /SCSIDBA 

;  START  CYCLE 
GD^READ  =  SIOl  *  RW 

GO.WRITE  =  SIOl  *  /RW 

;  START  REGISTER  ACCESS  CYCLE 
GO_BU?rER  =  /SIOl  SCSIDBA 

EQUATIONS 

SIMULATION 

TRACE^ON  CLK20  SIOl  SCSIDBA  RV;  RD  UR  CE  OER  GET  DTACK  SVO  SVl 

SET?  /SIOl  /SCSIDBA  RU  /CLK20 
CLOCK? 


CHECK  /RD 

/WR 

/CE 

/OER 

/GET 

/DTACX 

/SVO 

/SVl 

;  HOLD 

CLOCK? 
CHECK  /RD 

/’•I’R 

/CE 

/OER 

/OET 

/DTACK 

/SVO 

/SVl 

;  READ 

SET?  SIOl 

Of  f  : 

R'.v 

CHECK  /RD 

/WR 

/CE 

/OER 

/OET 

/DTACK 

SVO 

/SVl 

CLOCK? 
CHECK  /RD 

/WR 

CE 

/OER 

/OET 

/DTACK 

/SVO 

/SVl 

CLOCK? 
CHECK  RD 

/WR 

CE 

OER 

/OET 

/DTACK 

/SVO 

/SVl 

CLOCK? 
CHECK  RD 

/WR 

CE 

OER 

/OET 

/DTACK 

SVO 

/SVl 

CLOCK? 
CHECK  RD 

/WR 

CE 

OER 

/OET 

/DTACK 

SVO 

SVl 

CLOCK? 
CHECK  RD 

/WR 

CE 

OER 

/OET 

DTACK 

/SVO 

SVl 

CLOCK? 
CHECK  /RD 

/WR 

/CE 

/OER 

/OET 

/DTACK 

/SVO 

/SVl 

SET?  /SIOl 

.  RW 

CLOCK? 
CHECK  /RD 

/WR 

/CE 

/OER 

/OET 

/DTACK 

/SVO 

/SVl 

;  WRITE 

SET?  SIOl 
CLOCK? 

/RW 

CHECK  /RD 

/WR 

/CE 

/OER 

/OET 

/DTACK 

/SVO 

SVl 

CLOCK? 
CHECK  /RD 

/WR 

CE 

/OER 

OET 

/DTACK 

/SVO 

SVl 

CLOCK? 
CHECK  /RD 

WR 

CE 

/OER 

OET 

/DTACK 

SVO 

SVl 

CLOCK? 
CHECK  /RD 

WR 

CE 

/OER 

OET 

/DTACK 

SVO 

/SVl 

CLOCK? 
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CHECK  /RD  WR  CE  /OER  GET  DTACK  /SVO  /SVl 
CLOCKF 

CHECK  /RD  /WR  /CE  /OER  /GET  /DTACK  /SVO  /SVl 
TRACE.OFF 
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iNVES'ncA'i'oif  sol.'iici-;  coDi-: 


D.l  Link  Sp.'ciliraliuii  I-ilc;  ILACKPl.AX.LNMv 


*  Original  interrupt  vector  table  and  interrupt  service 

*  routines.  Modified  PLC  startup  source  code. 

LINK  isr  +  Exception  vector  table,  ISP.s . 

LINK  postinit  ^  POST  code. 

LINK  myrtl\startup\startup  *  Hy  startup  code  merged  with  PLC^s. 
^  Standard  PLC  runtime  libraries. 

LINK  myrtl\rtl2nn  *  Main  run-time  library. 

LINK  myrtl\iplib2nn( )  ^  Floating  point  library. 

*  The  following  comprise  the  routines  which  make  up  the 

*  PLC  {SYSTEM i SYS2YN ! SYS2NN} .LTX  run-time  libraries, 

LINK  myrtl\s3tkck\sstkck( )  *  Stack  checker. 

T-TaK  myrtl \cc i giui t\s3 Aginit ( )  ^  Signal  handler. 

LINK  myrtl \sdef hndlXsdef hndl ( ) 

LINK  myrtlXsreadXsread ( ) 

LINK  myrtlXswriteXswriteC ) 

LINK  myrtlXssbrkXssbrkC ) 

LINK  myr tlXsf s initXsfs ini t ( )  *  File  system  init . 


*  The 

ollowing  are  my 

own  modules. 

LINK 

backplan 

* 

Main 

program.  Also  replaces 

LINK 

monitor 

♦ 

Moni' 

tor  program. 

LINK 

escc 

* 

ESCC 

routines . 

LINK 

sbic 

SBIC 

routines . 

LINK 

convert 

* 

QRHS 

conversion  engine,  ini 

ORG 

$400 

SECTION 

0,1 

ORG 

$100000 

SECTION 

2,13,14,15,3,4, 

c 

STACKSZ 

EQU  $1FF??F 

- 

. stack 

DS.B  STACKSZ 

hardware . 


END 


D.2  Ha.sic  I  )('(i  i  1 1  i  li  His:  I).\SIi  TV  IMl.1  i 

/♦ 

InvestiGATOR  Back|>lane  Firmware 


Major  Rev:  0 
Minor  Rev  :  0 
Date:  2/d/d2 
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Author:  Joii  Mellott 

High  Speed  Digital  Architecture  Laboratory 
University  of  Florida 
405  CSE  Building 
Gainesville,  FL  32611 

This  header  file  contains  basic  type  definitions. 


*/ 

/*  General  types.  +/ 

typedef  unsigned  char 
typedef  unsigned  char 
typedef  unsigned  short  int 
typedef  long 
typedef  unsigned  long 


BOOL; 
BYTE; 
V/ORD; 
LONG; 
DWORD; 


D.3  I/O  CoiiMiiiHs:  IXVl'.S'riO.INC 


EQUATES 

***ASCII  COWSTAMTS^-- 


XON 

EQU 

$11 

XOFF 

EQU 

$13 

XGNBK 

EQU 

<±•0  0 

XOFFBR 

EQU 

$  C  O 

; 

CONSTANTS*** 

;  Note:  c* 

:3  to  a  major 

*Q 

-s 

Bit  reversed  XGN . 
Bit  reversed  XOFF, 


All  constants  are  prs-'reversed .  Data  is  reversed  on  the  fly*  •  < 


;  Serial  port 

register  loc 

SIOA_DATA 

EQU 

$20803 

SIOA.CTRL  EQU 

$20802 

SIOB.DATA 

EQU 

$20801 

SIOB.CTRL 

EQU 

$20800 

;  Serial  ] 

port 

register  off 

RO 

EQU 

$0 

R1 

EQU 

$80 

R2 

EQU 

$40 

R3 

EQU 

$co 

R4 

EQU 

$20 

R5 

EQU 

$A0 

R6 

EQU 

$60 

R7 

EQU 

$E0 

R8 

EQU 

$10 

R9 

EQU 

$90 

RIO 

EQU 

$50 

Rll 

EQU 

$DG 

R12 

EQU 

$30 

R13 

EQU 

$B0 

R14 

EQU 

$70 

R15 

EQU 

$FC 

;  Urite  register 
WRORTIP  EQU 


0  co;::::;ands 


Reset  Tx  interrupt  pending  ($28), 
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;  Read  register  2 

interrupt 

pending  bit  positions. 

RR3ARIP  EQU 

o 

Channel  A  R.x  IP  Mask. 

RR3ATI?  EQU 

3 

Channel  A  Tx  IP  Mask. 

RR3AISIP  EQU 

4 

Channel  A  Ext/Sta  IP  Mask. 

RR3BRIP  EQU 

5 

Channel  A  Rx  IP  Mask. 

RR3ETIP  EQU 

6 

Channel  A  Tx  IP  Mask. 

RR3BISIP  EQU 

7 

Channel  A  Ext/Sta  IF  Mask. 

;  ESCC  character 

buffer  leng 

t  h  s  . 

ESCCBUFL  EQU 

12S 

ESCC  buffer  length. 

;  ESCC  character 

buffer  inde 

X  mask  (tied  to  ESCCBUFL) . 

ESCC3UFW  EQU 

127 

ESCC  buffer  index  mask. 

;  ESCC  character 

buffer  fill 

threshold  for  XOFF. 

ESCCXGFT  EQU 

96 

Threshold  for  XOFF. 

;  ESCC  XON/XOFF  r 

equest  flag 

definitions. 

NOXEEQ  EQU 

0 

No  XQN/XQFF  request. 

XQFFREQ  EQU 

1 

XGFF  request  flag. 

XONREQ  EQU 

2 

XGN  request  flag. 

RCVXOFF  EQU 

3 

Receiver  is  XOFF,  no  XQN/XQFF  request 

;  =^^-SBIC  CONSTAN 

;  DBA  mode  enable 

register  Icc: 

it  ion . 

SCSI^DSA  EQU 

$20100 

;  Base  location  o 

f  SCSI  RAH 

buffer . 

SCSI^RAM  EQU 

$21000 

;  SCSI  port  base 

address  . 

SC5:'I_PORT  EQU 

$20000 

;  S^SI  pore  regis 

ter  dispiat 

nt  t . 

SCS  OWNID  EGU 

0 

SCS^CTRLR  EQU 

1 

SCS^TIMOT  EQU 

2 

SCS_TS£CT  EOU 

SCS  TKEAD  EOU 

4 

SCS  TCYLl  EQU 

5 

SCS_TCYLO  EQU 

6 

SCS  LADR3  EQU 

7 

SCS  LADR2  EQU 

8 

SCS.LADRl  EQU 

9 

SCS_LADRO  EQU 

$A 

SCS^SECTN  EQU 

$B 

SCS^HEADN  EQU 

$C 

SCS^CYLNl  EQU 

$D 

SCS^CYLNO  EQU 

$£ 

SCS^TLUNN  EQU 

$F 

SCS^CMDPR  EQU 

SIC 

SCS^SYNTR  EQU 

$11 

SCS_TRCR2  EQU 

$12 

SCS^TRCRl  EQU 

$13 

SCS.TRCRO  EQU 

$14 

SCS^DSTID  EQU 

$15 

SCS^SRCID  EQU 

$16 

SCS^STATS  EQU 

$17 

SCS^CMDRG  EQU 

$13 

SCS^DATAR  EQU 

$19 

SCS_AUXSR  EQU 

$1F 

NAWCADWAR-95005-4.5 


191 


D.-l  Base  B.'\( 'l\  I  MvA  N.(j 

#include<stdio .h> 

#include<stdlib. h> 

/* 

InvestiGATOR  Backplane  Firmware 


Major  Rev:  0 
Minor  Rev:  0 
Date;  2/6/92 

Author:  Jon  Mellott 

High  Speed  Digital  Architecture  Laboratory 
University  of  Florida 
405  CSE  Building 
Gainesville,  FL  32611 

This  software  constitutes  the  basic  operating  system  of  the 
InvestiGATOR  backplane. 

The  InvestiGATOR  backplane  is  configured  as  follows; 

MC68030  processor  operating  at  20  MHz. 

128KB  ROM,  base  address  $0.  eight  bit  organization. 

1MB  SCRAM,  burst  mode  read  access  supported, 

base  address  $100000,  thirty-two  bit  organization. 

Am33C93A  SCSI  Bus  Interface  Controller,  single-ended,  eight-bit, 
SCSI-2,  synchronous  up  to  5.0  MB/s . 

•  Z85C30  Enhanced  Serial  Communications  Controller,  two  RS-232 
serial  ports,  up  to  19.2  kbps. 

*/ 

/* - ♦/ 

/♦  INCLUDE  SECTION  */ 

/* - »/ 

/*  #include<stdio . h>  */ 

/*  #include<stdlib .h>  */ 

/* - - */ 

/*  MACRO  DEFINITIONS  */ 

I* - */ 

#define  PUT8(addr , val)  (»(unsigned  char  *) (addr) )=val 
#define  GET8(addr)  (»(unsigned  char  *)(addr)) 

/♦ - - */ 

/*  CONSTANTS  SECTION  */ 

/♦  - - 

/*  Logicals  */ 

#define  TRUE  1 

#define  FALSE  0 

/*  ASCII  Constants  */ 

#define  XON  0x11  /♦  *Q  */ 

#define  XOFF  0x13  /»  ‘S  ♦/ 

/, - ./ 

/*  TYPE  DEFINITIONS  */ 

/* - ,/ 

ftinclude  "basetype .h" 

/• - -  */ 

/*  EXTERNAL  PROCEDURES  •/ 
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- - 

extern  void  Ser ialF  : rt Ini t ( ) ;  ESCC.C 

extern  void  SCSIPort Ini t: ( )  ;  f*  SBIC.C  +/ 

/:, - ♦/ 

STATIC  DECLARATIONS  ♦/ 

/if. - - 

- - 

/*  PROCEDURE  DIVISION 

/if - 

/if - - */ 

/*  MAIN  PROCEDURE  */ 

A  — - */ 

main (void) 

{ 

/if  Print  banner.  */ 

print” ('*\n\nlnvest iGATOR  Firmware  C  Monitor  version  0.0  5/29/92?"); 
printf ( 'AnHigh  Speed  Digital  Architecture  Laboratory"); 
printf ( "XnUniversity  of  Florida"); 

/*  Initialize  the  serial  port.  */ 

SerialPortInit ; 

/*  Initialize  the  SCSI  port.  +/ 

SCSIPort Init ; 

/->  Lain  p:c'og:nu.i  loop.  -^  / 
vhile(TRU£)  ; 

} 


D.o  QllNS  ("uiivcrsioii  C^ON Vl-.RT.C 

#dedine  TESTCONVERT  0  /*  Enable  standalone  compilation  for  testing.  */ 
^include  <stdio.h> 

#include  <stdlib.h> 

/*  Program:  Conversion  Engine 
Major  Rev:  0 
Minor  Rev:  0 

Author:  Jon  Mellott 
Date:  2/14/92F 

Descript  ion : 

This  module  contains  the  necessary  components  for  forward 
conversion  from  Gaussian  integers  to  the  QRWS  and 
conversion  from  QRNS  to  Gaussian  integers. 

*/ 

/* - +/ 

/*  CONSTANTS  */ 

/* - »/ 

/*  Logicals  */ 

#<iefine  TRUE  1 
^define  FALSE  0 

/*  Conversion  system  paraiiietc!'n .  */ 
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#def ine 

iPriine  1 

113 

#def ine 

iPr  irne2 

109 

#def ine 

iPrimeS 

101 

#def ine 

IMl 

(long) 11009 

#detirie 

1M2 

(long) 11413 

#def ine 

1M3 

(long) 12317 

#def ine 

iMlInv 

73 

#def ine 

iM2Inv 

17 

#d€f ine 

iMSInv 

20 

#def ine 

IM 

(long) 1244017 

#def ine 

i JHat 1 

15 

#def ine 

iJHat2 

33 

#define 

iJHatS 

10 

#def ine 

iJHatll 

98 

#def ine 

iJHatI2 

76 

#def ine 

iJHatlS 

91 

#def ine 

ITwoIl 

(long)57 

#def ine 

lTwoI2 

(lons)55 

#def ine 

lTvoI3 

(long)51 

/*  — 

/*  TYPE 
/* _ 

DEFINITIONS  */ 

*/ 

/*  Define  basic  types.  */ 
#include  "basetype .h" 

/*  Define  RNS  three  tuple.  */ 
typedef  struct  _RHS  { 
ix'.t  iRi,iR2,iR3; 

>  RNS; 

typedef  RNS  *  RMSPTR; 

/*  Define  Gaussian  integer.  */ 
typedef  struct  _GAUSSIAN  { 
long  IR; 
long  II ; 

}  GAUSSIAN; 

typedef  GAUSSIAN  «  GAUSSPTR; 


/* - «/ 

/*  STATIC  VARIABLES  ♦/ 

/* - */ 

/*  Mod  p  tables  */ 
static  BYTE  byModl [0x200] 

static  BYTE  byHod2 [0x200] 

static  BYTE  by Mod3 [0x200] 


/*  Forward  conversion  tables. 


static  BYTE 
static  BYTE 
static  BYTE 
static  BYTE 
static  BYTE 
static  BYTE 
static  BYTE 
static  BYTE 
static  BYTE 


byFCla[0xS0] 
byFClb[0xSO] 
byFClc [OxoO] 
byFC2a[0x30] 
byFC2b[0x30] 
byFC2c[0x30] 
byFC3a[0x30] 
byFC3b[0x80] 
byFC3c[0xS0] 


/♦  QRNS  to  CRMS  tables.  ♦/ 


♦/ 
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static 

BYTE 

byCtoCl [0x180]  ; 

static 

BYTE 

byqtoC2[0xl30]  ; 

static 

BYTE 

byQtoCS [0x130]  ; 

static 

BYTE 

byQtoCli [0x130] 

static 

BYTE 

byQtoCOi [0x180] 

static 

BYTE 

byQtoC3i [0x130] 

/♦  CRT 

tables 

•/ 

static 

long 

ICRTl [0x80]  ; 

static 

long 

lCaT2[0x30]  ; 

S  W  CL  V  J.  C 

long 

lCRT3[0xS0]  ; 

/=*=  Multiplication  by  j^hat  aii' 

static 

BYTE 

byHJHl[0xS0] ; 

static 

BYTE 

byMJK2[0x80] ; 

static 

BYTE 

byMJH3[Ox80] ; 

static 

BYTE 

byMJKIl [0x30] ; 

static 

BYTE 

byMJKI2[0xS0] ; 

static 

BYTE 

byHJHI3[0x30] ; 

/* - ,/ 

/*  PROCEDUR£  DIVISION  */ 

/, - -  */ 

/* - 

Procedure:  ConEngInit 

F  3  X  3.rn  *2  5  X  3  N  c  X.  s 

bescri.pt  io;i : 

This  prccedurs  creates  the  tables  necessary  for  conversion  bet^reen 
Gaussian  integers  and  QRNS. 

Returns:  Nothing 

*/ 

void  ConEngInit () 

{ 

int  iTertp; 

long  ITemp; 

/*  Generate  mod  p  tables.  */ 

for  (iTemp=0;  iT€mp<0x200;  t+iTemp)  { 
byModl  [iTemo]  =(BYT£)  (iTemo  */,  iPrimel); 

> 

for  (iTemp=0;  iTemp<0x200;  ++iTemp)  { 
byMod2 [iTemD] =(5YT£) ( ilemp  X  iPrime2); 

> 

for  (iTemp=0;  iTemp<0x200;  ++iTemp)  { 
bvMod3  [iTemo]  =  (BYTE)  (  iTerno  7,  iPrimeB); 

/+  Generate  forward  conversion  tables.  ♦/ 

for  (lTemp=0;  lTemp<0xS0;  t+lTemp)  { 
byFClaClTemp]  =(BYTE)  (ITemp  7.  iPrimel); 
byFClb [ITemp]  =(BYTE)  (lTemp  +  0x30  7.  iPrimsl); 
byFClc  [ITemp]  =(BYTE)  (lTemp^Ox4000  7.  iPrimel); 
byFC2a[lTemp]=:(BYTE)  (ITemp  7.  iPrimel); 
byFC2b  [ITemp]  =(BYTE)(lTempt0x30  7.  iPrimel); 
byFClc  [ITemp]  =(BYTE)(lTe:np^0x4000  7.  iPrimel); 
byFC3a[lTemp]  =(BYTE)  (ITemp  7,  iPrimel); 
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byFC3b[lTe!np]  =  (BYTE)(lT€:nip*0x30  */.  iPrimeS)  ; 
byFC3cClTemp]  =  (BYTE)(lTeitip»0x4000  */.  iPrimeS)  ; 

> 

/♦  Generate  QRNS  to  CRNS  tables.  */ 
for  (lTeinp=0;  lTemp<0xl80 ;  ++lTemp)  { 

byQtoCl*[lTemp]=(BYTE)(lTwoIl*lTemp  */.  iPrimel); 
byqtoC2ClTemp]=(BYTE)(lTwoI2*lTemp  7.  iPrime2)  ; 
byqtoe3ClTemp]=(BYTE)(lT'-’oI3*lTeinp  7.  iPrime3)  ; 

byqtoCli[lTenip]  =  (BYTE)((long)iJHatIl*lTwoIl*lTenip  7.  iPrimel); 
byqtoC2i[lTemo]  =  (BYTE)((lons)iJHatI2*lTwoI2*lTemp  7.  iPrirae2) ; 
byqtoC3iClTemp]  =  (BYTE)((long)iJHatI3*lTv:oI3*lTeinp  7.  iPrime3): 

> 

/+  Generate  CRT  tables.  */ 

for  (lTerap=0;  lTemp<0x80;  ++lTerap)  { 

ICRTl  ClTemp]  =  (lMl*(iMlInv*lTemp  7.  iPrimel))  7.  IM; 
lCRT2[lTemp]  =  (lH2*(iH2InvilTemp  7,  iPrime2))  7.  IM; 
lCRT3ClTemp]  =  (lM3*(iH3Inv»lTemp  7.  iPrimeS))  7.  IM; 

/♦  Generate  multiplication  by  j_hat  and  j_hat  -C-l}  mod  p  tables, 
for  (lTemp=0;  lTemp<0x30:  +t-lTemp)  { 

byMJHlCiTemp]  =  (BYTE)(iJHacl»lTemp  7.  iPrimel); 
byMJH2[lTemp]  =  (BYTE)(iJHat2*lTemp  7.  iPrime2) ; 
byMJH3riTemp]  =  (BYTE)(iJHat3*lTen!p  7.  iPrime3); 
byMJHIl[lTemp]=(3YTE)(iJHatIl*lTemp  7.  iPrimel); 
byMJHI2  [ITemp]  =  (BYTE)  ( i  J Hat  I2*lTemp  /.  iPrime2)  ; 
byi-iJHIS  [ITemp]  =(BYT£)  (iJi-:atI3*lTemp  7.  iPri.meS)  ; 

> 

/*  Done.  ▼/ 
return  ; 


Procedure:  ForwardConvert 
Parameters: 


gN  —  Gaussian  integer. 
RZ  —  2  QRNS  channel. 
R2S  —  2*  QRNS  channel. 


Description: 

This  procedure  takes  a  Gaussian  integer  as  input  and  produces  a 
QRNS  representation. 

Returns:  Nothing 

♦/ 

void  ForvardConvert (GAUSSPTR  gN ,  RNSPTR  R2 ,  RNSP7R  R2S) 

RNS  RReal.RImag; 
long  ITemp; 
long  lWl,iw2,lW3; 

/*  Convert  Gaussian  integer  to  CRNS.  ♦/ 
lVl=gN->lR  ^  (long)0x7F; 
lV2=(gN->lR  &  (long)0x3Fo0)  >>  7; 
lW3=(gN->lR  &  (long}0:<lFC000)  »  14; 

lTemp=(long')byFCla[!yi]  +  { 1  ong)byFC  lb  [IW2]  +  (long)  byFClc  [1W3]  ; 
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RReal.iRl  =  ( int )byModl  [ITemp] ; 

lTemp-(loiig)byFC2a[iyi]  +  (long)byFC2b [1^2]  +  (long)byFC2c [1W3] ; 
RReal.iR2  =  ( int )byMod2  [ITemp] ; 

lTemp=(long)byFC3a[lWl]  +  (long)byFC3b [1^2]  +  (long)byFC3c CiW3] ; 
RReal.iRS  =  ( int ) byMod3  [ITemp] ; 


iyi=gN->lI  &  (long)0x7F: 
lW2=(gN->lI  &  (long)0x3F80)  »  7; 
lW3=(gN->lI  &  (long)OxlFCOOO)  »  14; 

lTeiiip=(long)byFCla[iyi]  +  (iong)byFClb [iy2]  +  (long)byFClc  [IVS]  ; 
RIiaag.iB.1  =  (int )byModl  [ITemp]  ; 

lTemp=(long)byFC2a[iyi]  +  (long)byFC2b [iy2]  +  (long)byFC2c  [iy3] ; 
RIinag.iR2  =  (int  )byMod2  [ITemp]  ; 

lTemp=(long)byFC3a[lV/l]  +  (long)byFC3b  [ll-IT]  +  (long)byFC3c  [IWS]  ; 
RImag.iR3  =  ( int ) byHod3 [ITemp] ; 


/*  Convert  CR.NS  to  QRNS .  */ 

R2“>iPwl  =  (int  )byModl  [R.Real .  iRl  + (int)byMJHl  [Pwlmag.  iRl]]  ; 
R2->iR2= ( int )byMod2  [RReai . iR2+ ( int )byK J H2 [RImag . iR2] ] ; 
R2->iH.3=  (int  )byMcd3  [RReai .  iRS-;-  (int)byMJH3  [RImag .  iR3] ]  ; 
R2S->iRl  =  (int)byModl [RReai. iRl  +  (int)byHJKIl [RImag. iRl]]  ; 
R2S->iR2=  (  int )byHod2  [RReai ,  iR2-r(int  )byMJHI2  [RImag  .  iR2]  ]  ; 
R2S~>iR3=(int)byMod3  [RReai . iR3+(int )byMJKI3 [RImag . iR3]  ] ; 

/*  Don.e  .  +/ 

return  ; 


/:^ - 

Procedure:  QRNSCRT 
Parameters : 

R2  —  2  QRNS  channel. 
R2S  —  2*  QRNS  channel. 
gN  —  Gaussian  integer. 


Description : 

This  procedure  takes  a  QRNS  input  and  produces  the  Gaussian  integer 
representation  of  that  output. 

Returns:  Nothing 

*/ 

void  QRNSCRTCRNSPTR  RZ ,  RNSPTR  RZ3,  GAUSSPTR  gN) 

RNS  RReai, RImag; 
int  iTemp; 
long  ITemp; 

/*  Produce  CRNS  from  QRNS.  */ 
iTemp=R2->iRl+R2S->iRl ; 

RPueal .  iRl  =  (int)byQtoCl  [iTemp]  ; 
iTemp=R2->iRl+iPrime l”R2S->iRl ; 

RImag . iRl  =  ( int ) byQtoC li [iTemp]  ; 

iTerap=R2-> iR2+RZS-> iR2 ; 

RReai . iR2=(int)byGtoC2 [iTemp] ; 
iTemp  =  R2-> iRU-  i Pr ime2-R2S->iR2 ; 

Rl.mag  .  iR2=  (  iut )  byQ coC2i  [iTemp]  ; 
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iTemp=RZ->iR3+RZS''>iR3 ; 

RReal. iR3=(int)byQtoC3[iTemp] ; 

iTemp=RZ~>iR3+iPrime3-RZS->iR3 ; 

RIinag.iR3=(int)byQtoC3i[iTemp]  ; 

/*  Perform  CRT.  */ 

/♦  Compute  partial  sum.  */ 

gN->lR=lCRTl  [RReal .  iRl]  +1CRT2  [RReal .  iR2]  +1CRT3  [RReal .  iR3]  ; 
gN->lI=lCRTl  [RImag .  iRl]  +1CRT2  [Rlmag.  iR2]  +1CRT3 [Rlmag .  iR3]  ; 

/*  Perforin  modular  reduction.  ♦/ 
if  ((lTemp=gN->lR-lM)  >=  0)  { 
gN->lR=iTerap; 

if  ((lTemp=gN->lR-lM)  >=  0)  { 
gN->lR=lTemp; 

} 

> 

if  ( (lTemp=gN->lI-lM)  >=  0)  { 
gN->lI=lTemp; 

if  ( (lTemp=gN->lI-lH)  >=  0)  ^ 
gN“>lI=lTemp ; 

} 

> 

/*  Done.  */ 
return  ; 

> 

/*  Test  generation  code.  */ 

#if  TESTCONVERT 
mainO 

RNS  RZ,RZS; 

GAUSSIAN  gN,gM; 
long  ITerap ,lTemp2; 

printf ("XnTest  Fixture  for  Forward  Conversion/CRT  Engine  Code."): 

printf ("\nv0 . 0 ,  2/lS/92Sat") ; 

printf (”\nJ .  Mellott” ) ; 

printf  (“\n\nlnitializing  tables 

ConEngInit 0 ; 

printf ("\n\nTesting  conversion  engine  (real  conversion  only)..."): 
for  (lTemp=0;  lTemp<lM;  ++lTemp)  { 
gN.lR=lTemp; 
gN.lI=(long)0; 

ForwaxdConvert  (&gN  ,&KZ  ,  SiRZS)  ; 

gN.lR=0; 

gN.lI=0; 

QRNSCRT(&R2,&R2S,&gN)  ; 
if  (gN.lR  !=  ITemp  II  gW.lI!=0)  •[ 
printf  ("XnFault  at  ’/.li  .\n"  .ITemp) ; 

if  ((ITemp*/.  10000)  ==  0)  printf  (".") : 

printf (”\n\nTesting  conversion  engine  (imaginary  conversion  only)...  ). 
for  (lTemp=0;  lTemp<lM;  ++lTemp)  { 
gN.lR=(long)0; 
gN  .  lI  =  lTenip; 
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ForvarcJConver  t  ,  Xif'-Z  ,  SiRZo )  ; 

QRNSCRTC&RZ.aaZS.&gH) ; 
if  (gN.lR!=0  M  gM.lI  !=  IT^.iJip)  { 

Drintf  (  "XnFaul  o  at  7.1 1 .  Xn"  ,  ITemp) ; 

}  * 

if  ((ITemp  7.  lOOOO)  ==  0)  printf 

>  •  ^  ^ 
printf ("XnXnTesting  conversion  engin.e  (incomplete  complex  testing}...";; 

for  (lTemp=0;  lTemp<lM ;  lTemp^=llll)  { 

for  (lTemp2=0;  lTemp2<lH;  lTemp2T= 1234 )  { 

gN.lR=:lTemp; 

gN .  lI=lTe.mp2 ; 

ForwardConvert  (ScgH  ,  icKZ  ,&R2S)  ; 

QRNSCRT(a:RZ.S^RZS  ,a:gll)  : 

if  (gN.lR  !=  IJemp  II  gM.lI  !=  lTemp2)  { 
printf  ( '* \nr  ault  at  7,1  i  .  \n"  ,  ITemn)  ; 

> 

> 

printf  (’■ ,  ; 

> 

> 

#endif 


D.6  .Moiiilor:  MOM'l'OirC 

^define  TESTVE.RSION  0  /*  Debugging  control  for  conditional  compilation.  */ 
^include  <stdio.h> 

#inclnde  <stdlib.h> 

#inclnde  <ctype.h> 

Program:  InvestiGATQR  Monitor 
Major  Rev:  0 
Minor  Rev:  0 

Author:  Jon  Mellott 
Date:  2/14/92F 

Description : 

This  module  contains  the  monitor  program. 

*/ 

/* - */ 

/*  CONSTANTS  */ 

/* - */ 

/*  Logicals  ♦/ 

#define  TRUE  1 
#define  FALSE  0 

/*  String  constants.  *“/ 
const  char  cPrompt []=">>” ; 

/♦ - 

/*  TYPE  DEFINITIOHS  ♦/ 

/* - 

^include  "base  t  y  p»* .  h ” 
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/* - - 

/♦  EXTERNAL  REFERENCES  +7 

/* - ♦/ 

/*  Reference  to  bit  reversal  cable  in  module  PCSTIWIT.  */ 
extern  BYTE  BITREV[256] ; 

/*  Reference  to  bus  error  counter. 

extern  DWORD  dv:BusErrorCount ;  /♦  This  counts  the  number  of  bus  errors. 

/ *  — — — — - -  */ 

/*  MACRO  DEFIMITIOMS 

fif. - - ♦/ 

/*  Min/Max  macros.  ♦/ 

#define  max(a,b)  (((n)  >  (b))  ?  Ca)  :  (b)) 

#define  inin(a,b)  (((a)  <  (b))  ?  Ca)  :  (t) ) 

- - - ♦/ 

/*  STATIC  VARIABLES  ♦/ 

A - -/ 

/* - - 

/♦  PROCEDURE  DIVISION  */ 

/  * - - 


Procedure  :  HonReadAddrCcBuff er ,-iIndex , ♦duAddress) 
Parameters: 


cBuiier  --  Input  string. 

*ilndex  —  Pointer  to  current  position  in  string  index. 
♦dwAddress  —  Address  of  variable  to  hold  read  address. 


Description: 

This  procedure  takes  the  buffer  starting  at  the  index  provided  by 
iln,(iex  and  scans  for  a  valid  address  which  is  then  placed,  in  the 
longword  variable  given  by  dwAddress. 

Returns:.  0  for  success,  !0  for  failure. 

*/ 

int  MonReadAddrCchar  ^cBuffer,  int  *ilndex,  DWORD  ♦dwAddress) 

{ 

int  iError ; 

ffhile(cBuffer[*iIndex] !=0)  ++*ilndex; 
while(cBuff er[*ilndex]==0)  ++^ilndex ; 
if  ((BYTE)cBufferC*iIndex]==OxFF}  return  2; 
iError=sscanf  (&cBuf  f  er [* iindex]  ,’'y,lX'‘  ,dw Address)  ; 

/*  Done.  ♦/ 

if  (iError !=l)  return  1; 
else  return  0; 

> 

/* - - - 

Procedure  :  MonHeinEdit (cBu  f  f  er  ) 

Parajuet  ers : 


cBuffer  --  Input  string. 


Description : 

This  procedui.?  alLiW:-.  th»-  u::ei  to  edit,  memory  contents  by  byte, 
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word,  or  longworcl  within^  the  given  addreoc  range  given  by 
St  art -address  ciud  end-address. 

Returns:  Nothing 

*/ 

void  MonMemEdit  (char  =^c5uffer) 

DWORD  dwStart Address , dwEnd Address : 

D WO RD  d w  ij a t  a.  j 

BYTE  *fpbyData; 

WORD  *ipwData; 

DWORD  ♦fpdwData; 

int  iError , iindex , iS ize ; 

char  cTempCOOj ; 

/*  Extract  addresses.  +/ 

ilndsx=0 ; 

if  (MonReadAddrCcBui  ler  ,<S:iInde:-:  ,&dwStartAddress)  i=0)  { 
printf ( ’'\n^**ERR0R :  Unable  to  read  start  address."); 
return  ; 

> 

if  (MonReadAddr (cBuff er ,&i Index ,&dwEndAddress) ! =0)  { 
print  I  (  "\n  ‘♦'ERROR :  Unable  to  read  start  address."); 
return  ; 

> 

/*  Get  size  [BiWlL] .  +/ 
switch(c3uf ler [2] )  { 
case  ^  B  ^ : 
iSi.ze-1  ; 
break ; 

case  ^  W  ^ : 
iSi2e=2 ; 
break ; 

case  ’L ' : 
iSize=4; 
break; 

default : 

printf  (  "Xn-^*  *ERR0R:  Unable  to  determine  size."); 
return  ; 
break ; 

> 

Walk  through  and  edit  memory.  +/ 

for  (;  dwStart Address<=dwEndAddress  ;  dwStartAddress  +  = (DWORD) iSize)  { 
switch( iSize)  { 
cas  e  1 : 

f pbyData= ( BYTE  ♦ )dwS tart Address ; 

printf  ("\n7.SlX  [72X]  :  ",  dwStart  Address  ,  *fpbyData)  ; 

gets ( cTemp) ; 

iError  =  sscanf  ( cTemp  ,  "7,1X"  ,dwData)  : 
if  (iError==l)  *f pbyData= (BYTE)dwS tar t Address ; 
break ; 

case  2: 

f  pwData=  (WORD  ♦  )dwSc.ar  t  A<ldress  : 

printf  ("\n7.31X  [7.4X]  :  "  .dt’Start Addia^ss  ,  ^fpwData)  ; 
gets (cTemp) ; 

iError  -  sscaii  t'  ( cToiitp  ,  "71X  "  ,  dwData )  ; 

if  (  i F. r r o r  =  =  1 )  ♦  f  p w D a  i a  =  (  WC ) F( D ) d ic S c a t' t  A r e s s  : 

break : 
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ca.':<^  '!  : 

i p.  1  wO a  c =  C  DWU K\)  *  )  t ar  t  Acldr oc o  ; 

pr HI i- i' ( ” \ u*/.3 1 /.  LV-BlXj  I  dviS tar c Address  , *fpdwDa‘Ca) , 
gets (clomp) : 

iError^ s s c all  T  ( cTonip ,  "y.lX"  ,dwData^  ; 
if  (iErvoi-^i)  .ifpdi-;I)atci=(DWORD;dwStartAddress; 
brea’r: : 
default: 

printf  ( ‘’\i'.+  ^*ERK0K:  Something's  really  fubar."); 
return  ; 
break ; 

} 

> 

/*  Done.  •/ 
return; 


Procedure  :  MorMo::U;ove(  t er ) 

Parameters : 


cBuffer  —  Input  string. 


Description: 

This  procedure  moves  a  block  of  memory  defined  by  start-address  and 
end-address  to  the  area  beginning  at  dest-address .  Each  of  these 
arpu.tents  is  given  in  iho  command  line.  The  move  is  executed  from 
start-address^to  end-address  so  overlapping  moves  *down*  in  memory 
will  execute  correctly,  however,  overlapping  moves  ♦up*  in  memory 
will  not  produce  correct  results. 


Returns:  Ho thing 

*/ 

void  MonM  end*  love  (char  ♦>cBuffer) 

DWORD  dwStart Address ,dwEndAddress ,dwDestAddress ; 

int  iln'dex  ,  iError  ; 

/*  Extract  addresses.  *^/ 
ilndex=0; 

if  (MonRewadAddr(cBuffer,&iIndex,5idwSc.artAddress)  !=0)  i 

printf(’‘\n’'" -ERROR:  Unable  to  read  start  address,*'); 
return  : 

if  (MonReadAddrCcBuff er,iilndex .idwEnd Address) !=0)  { 

printf  (  ”\!i  ^  ’  E?..RG:\. :  Up.-ui.’  i  ^  '  read  en-.l  address  .  ) , 
return  : 

> 

if  (HonRea'l r  ( cBu f  f  er  ,  i  T:ido x  . K^dwDcs  t  Address)  1=0)  { 

pr  int  f  (  " \n  ^  ^  RllROR :  Unable  to  read  oest  ination  address.  ), 
return  ; 

y 

/*  Validav.tr  a..Mr-::s  placeiiu-nt .  ♦/ 

if  (dwScart.Addr-:in>dv:i:ndAddrosc)  { 

print  :  ivvar?  address  comas  after  end  address.”); 

return: 

i-f  (dwD'-:-.  i.Ad>' ii;::?  . a:  t. .Add  :  - dnDe s  t  Add l  *js s <  =  dwEndAddress )  { 
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printf  ■  "Xn  »  ♦  ♦  KaRuR  :  1^::'.  1 1  mtiC  io!'>  :xd'[rezz  iz  in  the  block  range.*’);, 
return  ; 

> 

printfC*’  iiSorry,  thiu  I'anctLon  is  noc  yet  finished.”); 


/*  Done. 
return  : 

> 

/*  - 

P r o  c  ed u  i‘  e  :  H o n G c  (  c  3  u  i  i  e r  ) 

Famine  ter:-; : 


cBuffer  --  Inyul  ctLing. 


Descript  ion  : . 

This  procedurv  bey  inn  prcgmin  execution  at  the  start-address  given 
in  the  conunand  line.  IZxecution  is  started  using  a  jurup-to-subroutine , 
and  the  progra:::  may  return  control  to  the  monitor  by  executing  a 
return-f  rorii-tui'^rout  i  ne  ins  truct  ion  . 

Returns:  Nothing 


void  M c n G c c h a r  *0 3 u f  f  o r  ) 

in t  i  I  n d  e  X  ,  1  Er r o  r  : 

DWORD  duGoAddress : 

/  ^  E  X  t  r  c  "  t  :  •  e  s  t  :l  r  1 1  n  g  ck:  i‘  e  c  s  .  / 
ilndev:.0; 

if  (HonReadAddr\ cSufi  er  .•.^:il:idex  ,aduGoAddres3)  !=C)  { 
print: : "\n‘ —ERROR;  Unaike  to  read  start  address.”); 
return  : 

> 

/*  Validate  axidress  (ch.eck  for  word  boundary),  */ 
if  (dwGcAddress  (DWORD)  i)  { 

print  I  ‘  E.RRGR :  Prcgram  execution  must  start  on  a  word  address.'*); 

return  ; 

} 

pr int f ( "XnSorry .  this  function  is  not  finished.”); 

/*  Dene. 
return  ; 

} 

- 

Procedui e :  MonSMemLoad ( ) 

Paramet  e  rs  : 


Descr ipi ion : 

This  procedure  cakes  3- record  inpuc  from  the  standard  input  until 
a  termir.ating  3-record  ( S7 ,  S3,  or  S?)  is  encountered.  The  S-record 
information  is  us^id  to  load  memory. 

Returns:  Nothing 


void  H< >n. 3 I >;,•  d  '  \ 

{ 

ci;:;:  :.'!  ;  l  -;: 

cTr-:;;}  >  1.  I  .k‘;  |  ; 


char 

char 
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int  iK‘;cL<2u  ,  i  Iiv.iox  ; 
int  iT'^nip: 

BOOL  bDont- 

DWORD  dwScart  AdJi  oSL' : 

BYTE  by Data; 

/*  Initialize, 
bDone=FALSE ; 

while ( IbDone)  { 

/ ’♦'  Read  S-recox'd.  */ 
gets  (cBiif  f  er ) ; 

switch r ci^ul'fer [ l]  )  { 
case  "0 ‘  : 
break ; 

case  ' 1 ’ : 
case  *2 ’ : 
case  ’  3-  ’  : 

/>  Extract  record  length. 

C T e:iip  [O  j  =  C  r  v. !’  t  e  r  ;  "J  j  ; 
cTemp[i]=cBui:cr[?] ; 
c T "’P  C D  j  “  '■  c a i*  0  ; 
s  3  c  an  i  ( c  Te:r.:: ,  "  V.X  ’  i  i  R  e  c  L  e  n )  ; 

Extract  starting  address.  »/ 

•)  / 

- i.  )  y. 

for  •' i  Ind'^x  =  ‘i  ;  iIndex<S:  -i-Tilndex)  cTemp  [i  Index-4]  =cB'iiffer  [ilndexj  ; 
cT  emp  [4]  =  ( char ; 0 : 

P  ^  f  ..  • 

} 

o  1  o  £1  -J  T*  r  -  t*  r  t  i  =  =  •’  *'  M  -T 

cTe.npCiIndex-4]  =cBuf f  erCilndex]  ; 


cTemp  CiIndex-4] =cBuf f er [ilndex] ; 


/*  Extract  the  data,  >/ 
while  \iKecLen>i)  { 

cT eiiip  [O j  =  c  Eui  f  e r  [ i Ind ex ++ ]  ; 
cTeiup  L  l]  =cBnff  er  [ilndex  ++]  ; 
cTt.,‘iur-  [h]  =  i  cl’.ar )  G  : 
sscanf  ('cTeijip,  "/iX'*  ..^liTemp)  ; 
by  D a  r  a  =  ( H  YTK ;  iTeiup : 

pr  in  i.  r  ( ’‘‘/.OOX  .  (  i  n  c )  by  Data )  ; 

'  *  D c  e.T; n  c  o n  n  tor.  ^  / 

-  iR.-cI.-r:,  ; 

\ 

i 

bi  o.d:  ; 
care 

caia*  ’  “ 

can- 

[‘j  1 1. 1  ;■  *■ '  ;  -  •••■.  :  ;i  .  d.  'U-: .  ”  )  ; 


d  c  r  (  i  I  nd  e  X  -  4  ;  i  I d  e  x  ■t  1 0  ;  +  ■?*  i  i.  nd  e  x ) 
cTemp  [6]  =  (char )0 ; 

> 

else  { 

for  (ilndex=4;  ilndex<12;  ++ilndex) 
cT  emp  [3]  =  ( char ) 0 ; 
iRecLer.-=4 : 

} 

sscanf  (  cTo.'up,  ”y.lX'’  ,?^dwS  tart  Address)  ; 
printf  (  nXSlX  :  ”  , dwStart Address )  ; 
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bDon^^TRUK : 
brerik  : 

default: 

printf  ( '‘\u' ♦  HRKOR;  Unable  to  determine  record  type."); 
break ■ 

} 

} 

/ Done.  ♦/ 
return  ; 

> 


Procedure  :  Mon?MeniDunip(  cBuif  er ) 
Parame  terc : 


c Suffer  --  Input  string. 


Description: 

This  procedure  dumps  tho  uiemcry  from  start-address  to  end-address 
in  S-reco r d  f c r r: a t . 

B.eturns  :  Mothinc 


void  Mens Me 

:;;0umpC  cnar  t  cBu:  f  er  ; 

{ 

DWORD 

d  S  t  a  r  t  A  <:l  <:!  r  e  s  s  ,  d  u  p  n  d  A  d  dress; 

.  BYTE 

by Char : 

int 

nSy  tes  ; 

int 

int 

iCheckSum: 

/*  Get  St 

art  address. 

ilndex^O ; 

if  (MenRs 

adAddr  ( c3u f  f  er  ,  A^ilndex  ,&d".;StartAdcress)  !  =0) 

pr  int  f  (  "XiV’^  ^  *Er.R0?. :  Unable  to  read  start  address."); 
return  :■ 


} 

f  pbM  em  =  ( 3 VT 1%  »  ;  d 3 1  ar  t  A ddr  ess: 

/*  Get  end  address.  */ 

if  (MonReatl.Addr  (cBuifer  ,i'ilndey.  ,3:dwEndAddress)  i=0)  { 
printf ( "\n ’  ^ ■'^E.n.Ru.t :  Unable  to  read  start  address."); 
return  : 

} 

/*  Check  t'lat  E::d/\ddr  comes  after  StartAddr.  */ 

if  ( d w E n d A •:! r e .c d u S : a r t .A d r e s 3 )  { 

pr  int  f  (.  "\n  ^  ^  » Er.jdjR  :  Start  a^ldress  is  greater  than  end  address."); 
return  : 

> 

/*  Print  m«-n{v>ry 

w h  i  1  e  ( d u S  t  a  r  t.  A d d  r  > : ::  =  d  V.n d  A d dress)  { 

/  ♦“  Comi'Ul.o  nu:::b‘:i  ol'  bytos  to  dump.  *'/ 

nBytes~min{  (DUORD)  (dv;r.ndAJ.f.i  r  ess -dvS  tart  Address  +  1 )  ,32)  ; 

Print  I '•  e y,  i  ■ :  .a  i  n  g  o  f  U  -  r  e  c  o  rci .  / 
if  (duUr  ai  tAddros::''{  DU(JR!)  lOOOO) 

pr  i  n  'l  t’  C  ‘’Xn:;  1  ‘/.UIX "0-1  ;  //■ ,  nP-y  tc*::  i  3  .  duS  tart  Address )  ; 
else  if  {  du; tAUd;  s<  ( DUOR  D  '  0  :cl  000000 ) 
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princ:'(  IX"  ,u2yt  03+4,  cIkS  Cart  Address ) ; 

else  prratf  f  "XiiS.r/.O'lxy.OolZ-.nBytes+S.daStartAddress) ; 

/*  Dump  data.  ♦‘/ 

iCheckSura=  (DWORD )0xr-T  &  daScarcAddress  + 

( DWORD )0:<FK  •!:  daStarcAddress/OxlOO  + 

( DWGRD)OxFi'  S;  daStarcAddress/OxlOOOO  + 
(.Dv/GRDjOxF"  ft  dwGcarcAddress/OxlOOOOOO; 
for  (ilnde;<=0:  ilndo.';-' nBytes ;  ++ilndex)  { 
byChar=(BYTE)  +  fpbHei'!; 

++f pbHem : 

i  C  h  e  c  k  S  i:  i:i  +  =  ( i  u  t  )  b  y  C  i  i  :i  r : 
pr iucf  ( '‘7.02X'' ,  ( BYTk  ^  hyChar )  ; 

} 

/*  Compute  o'ie‘u  of  crc'dC/.oum.  */ 

iCheckSum  =  OxFF  '  iCbockSum)  ; 

printf  (”%02X-  ,  iCheck:-kiiii )  ; 

/*  Increment  Start  Address.  */ 
d  w  S  t  a  r  t  A  d  d  v  e  s  3  +■  =  r.  Byte:*: 

> 

/*  Print  junk  terminatv)!*  record.  +/ 
printf  (■'\nS?OaOGOOFC-)  : 
return  : 


Procedure:  l-i  o  n  A  M  e :uD  u  nip  C  c  B  u  i  ^  e  r ) 
Parameters : 

cBuffer  —  Input  string. 


Description: 

This  procedure  dumps  the  memory  from  start “address  to  eiid“address 
in  ASCII  format- 
Returns  :.  Mothing 

void  MonAMemDumpC char  ^cBulfer^ 

DWORD  du^Start  Address  ,dwEiuiAddress  ; 

BYTE  +fpbMem: 

BYTE  by Char; 

int  ilude:<: 


/*  Get  start  address.  ♦/ 
ilndex=0: 

if  (MonReadAddrCcBuffer.&iIndex.ftduStartAddress) !=0)  i 

pr  int  f  ( '* \n  ♦  F.RROPv. :  'Jnable  to  read  stai't  address.  ), 

return  ; 

> 

fpbMem=(  BY  I'K  *  idaoCarcA'ldre?.' ; 

if  (MonReadAddr(  cBnf  f  c-r  .ftilndex  .ftdaEndAddress) !  =0)  { 

dv;  End  A. !  - 1  v;n  t  a  r  t  A- '  i  c  e?  i'  ‘  ( DWORD )  o  ?  : 

} 

/*  Check  t  iia'  F.ndAddt  at  ter  EcarcAddr.  ♦/ 

if  (d'-'EndA.;,!:  I  ,v!d:  one  )  { 

pri  nc  1' t  ii  *  •  •  ■  "'art  ,'iv!' 1  f-;;:'.  £fOaL.,-r  th-ih  end 


address  . " ) ; 


NAWCADWAH-95005-4.5 


206 


re c urn  : 

} 

/*  Prinr.  memory  ciuriij. .  ♦’/ 
wh  i  1  e  ( cl  w  S  c  a  r  t  A  cl  cl  r  e  n.  r.  <  =cl  Pm  cl  A  cl  cl  r  e  3  s )  { 
ilndex=64; 

print!  ( '‘\iiy.3  IX  :  "  .dt'StartAclclrass)  ; 
while  i  I  ic  '1  e  x  >0  d  v. \  n  :i  r  t  A  d  d  r  e  s  s  <  =  d  w  Z  a  d  A  d  dress)  { 

byCliar  =  ( B YTP')  l'|'ibMe::i : 

if  (byChar>  =  3'l  kic  byChar<  =  12*3 )  printf  ( "Xc*' ,  (char)byChar) 
else  princf 
+  -i-cl  w  3 1  ar  t  A  d  d  r  e  s  s 
—  i Index  ; 


Procedure:  Mon!!e:i:Diu:ip'  tdu 
Par ame  cars : 


cBuffer  —  Input  striiCK. 


Description : 

This  procedure  duifirs  the  n-enory  froni  start-address  to  end-address, 

*/ 

void  HonMe:nDuniD(  char  t-cHufier) 

DWCF.D  dwStart  Address  ,  dwEndAddress  ; 

BYTE  ’♦'fpbHem; 

int  ilnde:c; 

Get  start  addre::s.  ••/ 

ilnde:c=0; 

if  (MonPve‘adAddr(c5uff  er  ,&ili'idex  ,&dwStart Address)  i=0)  { 
print!  ("Xn*  ^  ♦EPvROR :  Unable  to  read  start  address.”); 
return  : 

> 

fpbM8m=  (  BYTE  ^  )dv;S  tar  t  Address  ; 

switch  (  Hour. ead  Add r  ( c  3u  1 1  er  .  i  i  I  nd ex  ,  S:d w End Addr es  s  )  )  { 
case  1  : 

print!  ( ''X 11'^*  ^EP.PwDPl  :  Ur.  able  to  read  start  address.'*); 
return  ; 
break : 
case  2: 

dw£adAddress=clv;StartAddress  +  (DYQRD)  iS; 
break : 
default : 
break : 

> 

/*  Check  that  EnctA'Ydr  conies  after  StartAddr.  +/ 

if  ( d w E a d  A d d r e n :: ^d w3 c a r  t  A d d i  e s r. )  { 

print!  (”Xa  ^  ♦  M-:RilC]R :  Start  addr-jss  ii:  greater  than  end  address.”); 
return.  : 

} 

/♦  Print  nunn.'Uy  iMiiip. 
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w  h  i  1  e  ( cl  w :  j  I .  Cl  r  t  A  ck  I  r  i.- ::  -  c  I  v:  li  n  c  I A  d  ci  r  e  s  s )  { 
ilndex= 16 ; 

printf  CAny.eiX:  "  .dwStartAddress)  ; 

while  (ilndex>0  duStartAddress<=dwEndAddress)  { 
print.  t*("y.2Z  ’•  .  +  fpbMem)  ; 

++fpbMom: 

+ + d  w  S  t.  cii' t  A  d  d  r  e  :r.  c  ; 

—  iliniex  ; 

> 

> 

return  ; 

> 

- 

Procedure :  McnParseCcBuf f er) 

Parameters : 


cBuffer  --  Input  string. 


Description : 

This  procedurv  places  MvL  characters  after  each  word  in  the  buffer. 
The  end  of  the  string  NUL  cs  followed  by  a  OxFF  to  indicate  the 
end  of  strings. 

Returns:  Hcthing 

*/ 

void  MonParse ( char  tc Buffer) 

r 

\ 

BOOL  bDone; 
int  iindex: 

/♦  Initialize.  */ 

bDone=FALS£: 

ilndex=0; 

/*  Begin  main  loop.  >/ 
while  (! bDone)  { 

switch ( cBufi er [ilndexj )  { 
case  C: 

cBuff er  [iIndex  +  1] =(char)0xFF ; 

bDone=TRdE; 

break ; 

case  '  * : 

c E u  1  f  e I*  [  1 1  nd e :<  j  =  ( c h ar )  0  : 
break : 

default : 
break; 

/ 

+  +  i  I  nd  e : 

> 

/+  Done.  ♦/ 
return  ; 

> 

/*  - -  - 

Procedure:  Hointoii) 

Par  anu::  t*  *!'::  : 
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Descript. ioii : 

This  proceci ij :'c  is  r.lio  :i’.or:icor  prograi'ii. 

Returns  :  Hor.nin  j 

*/ 

void  Monitor(  ) 

i 

BOOL  bExic; 
char  c5uf  t  er  ['^0]  : 

/*  Print  banner. 

printf  ("Xnlnvest iGATOR  Honitcr  ProgrcuT.‘* )  ; 
printf ( ”\nvers ion  0.0”}; 
printt  (”\n2/  :-'V92’' )  ; 
printf (”\nJ.  Heliort”}; 

printf ('AnHigh  Speed  Digital  Architecture  LaboratoryXn” ) ; 

/*  Initialize  monitor. 
bEx i t =F A LSE . 

/ *  Main  mo n  i  t r  e x e c u  f  i  f u i  1  o o / 
whileC i bEx It  ;  i 

printf ( ”\nhs ” .cPromp: ) ; 
gets ( cBuf  f  er )  ; 

/*  Parse  the  string.  ♦/ 

-[  /*  Convert  to  upperca.se.  »■/ 

int  i  ; 

i=0: 

cBufierLi]- ( char ) toupper ( ( int ) cBufi er  Li] ) ; 
e-r  i  ; 

> 

> 

’Parse'  the  character  buffer  sc  it  can  be  treated  as  a  string  of 
ASCIIZ  string.-  . 

MonParseCcBuffer; ; 
st^xtch(cBufieri_v>j/'C 

case  'A':  /+  ASCII  memory  dump.  */ 

H  o  n  A  M  e  ::iD  u  m  c  B  u  f  f  e  r )  : 
br  e ak  ; 

case  ’E':  /+  Bus  error  counter  print.  */ 

/+  Print  number  of  bus  errors  which  have  occur ed.  */ 
printf ("VnThere  have  been  Vik  bus  errors ,dwBus£rrorCount) ; 
break ; 

case  'D';  /*  Memory  dumj->.  A 

H  o  n  i-i  c  ml;  u  m  [j  ( c  B  u  f  f  e  r  ;  : 
break : 

case  'G';  /•  Px;gin  progtrnm  execution.  +/ 

Mon Go ( cBu  f  for  ;  ; 
br^ak ; 

case  'L';  l-oad  S- records.  +/ 

KonSMv't.d  ,oad  (  i  : 
break  ; 

car. f  Mi  '  :  /»  Jif/V'.-  nunin-'i'y  block.  ♦•/ 

sv:  1 1  c!t  \  cBu  r  :  1  )  { 
ca;-.'‘  Mi  '  : 

H.-nlh-mPd  i  ini f-r^  ; 
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br^j'ik  : 

Mcr:!‘io:nMovo  (  cBu  ( f‘.u* }  ; 
br ; 

deiuuir, : 

pr  i:;tf  C 'An  ♦  ^F'.iiROR :  Unknox^n  command.’*); 
br^'ik : 

> 

break ; 

case  ^S’ :  /  ^  Save  S- records. 

MonSHe’:;Duinp(cnuf for )  : 
break ; 

case  'V':  />  Print  version  numberCs).  */ 

print!  r’\nInve£r.iCATGR  Monitor  version  0.0") 
break ; 


case  ’  Q  ’  :  /  *  S x  i  r  me : ;  *  o r  . 


bExir.=  i  rtuE : 
break ; 


def  aiil  c  : 

pr  int  f '  ERR.0?  i  vuknown  command .  ) , 

break ; 

> 

> 

/*  Monitor  ends...  »/ 
return  ; 

> 

/* - ./ 

/*  MAIM  PROGRA!-:  -/ 

/* - 

#if  TESTVERSIGN 
mainO 

/*  Call  monitor  program.  V 
Monitor ( ) ; 

} 

#endif 


D.7  .S(‘rial  1 O  ( (  .( 

/* 

Invest iGATGn  P.ackplane  Firmware  lor  ZS5C30  ESCC 


Major  Rev:  0 
Minor  Rev:  v' 

Date:  2/ 6 >'9?. 

Author:  Mollor. t. 

High  Spot'd  Digital  Arcli  i  tec  Laboratory 

University  .'t*  F-'loiida 
405  CSL-:  l>u  i  tding 
Gaiiu.*:' V  i  1  K- .  :-‘L  •  I '> 
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This  nioclule  contciins  initialisation  and  interface  code 
for  the  2o::C^0  E3CC . 

*/ 

/* - */ 

/♦  INCLUDE  SECTION  V 
- ,/ 

- if./ 

/*  MACRO  DErINXTIQMS  V 
/* - 

^define  PUTS(addr , val)  C^Cunsigned  char  ♦) (addr) ) =val 
#define  GETS(addr)  (^(unsigned  char  *)(addr)) 

- -4^/ 

/*  CONSTANTS  SECTION  */ 

/:, - V 

/*  Buff ered/non-buf f ered  ESCC  I/O  flag  (nobv.x  =  l,  buf  =  0)  . 
^define  ESCCNEUF  0 

Log i cals 


#de 

f  i 

ne 

nr  K  d  ^ 

1 

#de 

ne 

FALS 

E 

0 

AS 

U 1 . 

L  Con 

s  tant 

3 

+■/ 

#de 

f  i 

ne 

XON 

Ox 

1 1 

o 

#d9 

f  i 

ne 

XQFF 

0x13 

-  c 

*/ 

Se 

r  i ; 

ll  ?o 

rt  De 

f  i 

ni 

t  i  0  n 

q  f 

/ 

T  i 

ne 

ESCC 

CiCR 

0 

V  n  0 

C  C  3 

‘.n  ? 

#cie 

T  i 

n  e 

ESCC 

CADR 

0 

xO^j'J 

20  C 

03 

^d  e 

f  i 

ne 

ESCC 

CBCR 

0x00020301 

#de 

f  i 

n  e 

ESCC 

^CBDR 

OxOOCOOS 

00 

ESCC 

regi 

s  t  er 

ma 

sk 

3  ,  + 

/ 

#de 

f  i 

ne 

ESCC 

RXAV 

r, 

x30 

#de 

n  e 

ESCC 

.TXEH 

0 

xOO 

/* 

ES 

buff 

er  le 

t  h 

def 

ini 

1 1 

found  in  INVESTIO  .  INC . 


#de 

fine 

ESCCBUFL 

1  -jO 

/* 

ESCC 

buffer  in 

dex  mask 

d 

ef 

init: 

.on.  This 

#de 

f  ine 

ESCCBUFU 

1  /%-T 

i  ^  i 

/* 

ESCC 

chciract  er 

buffer 

f  i 

11 

thrt 

jshold 

for 

must 

match  tha 

t 

found 

in 

IHYESTIO.INC 

.  * 

#de 

fine 

ESCCXCFT 

06 

/* 

ESCC 

XCM/XOFF 

r 

eqiiest 

f  1 

a 

def : 

.nit  ions , 

INVEl 

1 

o 

O 

/ 

#de 

fine 

NOXREQ 

(.BYTE 

)0 

/* 

No 

#de 

fine 

XOFFREQ 

(  BYTE 

)i 

/+ 

XCF 

#de 

fine 

XCNREQ 

C3YTE 

)2 

/* 

XON 

#def ine 

RCVXOFF 

(,  BYTE 

)3 

Wo 

/* 

— 

-  f  / 

/* 

TYPE 

DEF IN [Tin 

H 

S  ‘  /' 

/* 

— 

- 

-  >/ 

/♦  No  XON/XOF?  request,  state=XON, 

/+  XCFF  request  flag,  state=XCN.  */ 
/*  XON  request  flag,  state=XOF?.  */ 
/ +•  Wo  XON/XOFF  request,  state=XOFF.  */ 


find ud e  ’ ‘ ba s e :  y ;> rr .  h ’ ‘ 


/* 


/*  EXTERHAI.  NFF:-:R!U'1CFS 


/*  - 


*/ 
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/*  Reference  to  bit  revorr.al  table 
extern  BYTE  ::  ITflEV  [256]  ; 

/*  Serial  port  statics:  defined  in 
extern  BYTE  byAReqXonXof f ; 
extern  BYTE  byBReqXonXof f ; 
volatile  extern  BOOL  bATxXoff; 
volatile  extern  BOOL  bBTxXoff; 
extern  char  +cpARxBuff; 
extern  char  +cpATxBuff; 
extern  char  *cpBRxEuff; 
extern  char  ♦cpBTxBuff; 
extern  char  cARxBuf f er [] ; 
extern  char  cATxBuf f er  [] : 
extern  char  cBRxRut :er [] : 
extern  char  cBTxBuf f er [] ; 
volatile  extern  int  nARxHead; 
volatile  extern  int  nBRxKead; 
volatile  extern  int  nATxHead; 
volatile  extern  int  nSTxHead; 
volatile  extern  int  nARxTail; 
volatile  extern  int  nBRxTail; 
volatile  extern  int  nATxTail; 
volatile  extern  int  nBTxTail; 


in  module  POSTIMIT.  */ 

ISR.M63.  ♦/ 

/*  ESCC.port  A  xmit  XON/XOFF  req  Hag.  ♦/ 
/♦  ESCC  port  B  xmit  XON/XOFF  req  Hag.  ♦/ 


/+  ESCC  port  A  xmitr  XON/XOFF  flag.  */ 

/+  ESCC  port  B  xmitr  XON/XOFF  flag.  */ 

/*  ESCC  Port  A  receive  buffer.  */ 

/♦  ESCC  Port  B  transmit  buffer.  */ 

/*  ESCC  Port  A  receive  buffer.  */ 

/♦  ESCC  Port  B  transmit  buffer.  ♦/ 

/*  ESCC  Port  A  receive  buffer  array.  */ 

ESCC  Port  A  transmit  buffer  array.  */ 
/♦  ESCC  Port  B  receive  buffer  array.  */ 

/=*  ESCC  Port  B  transmit  buffer  array.  ♦/ 

/*  ESCC  Port  A  receive  buffer  head.  ♦/ 

h  ESCC  Port  B  receive  buffer  head.  */ 

/♦  ESCC  Port  A  transmit  buffer  head.  ♦/ 

/*  ESCC  Port  A  transmit  buffer  head.  */ 

h  ESCC  Port  A  receive  buffer  tail.  */ 

/*  ESCC  Port  B  receive  buffer  tail.  ♦/ 

/»  ESCC  Port  A  transmit  buffer  tail.  */ 

/*  ESCC  Port  B  transmit  buffer  tail.  */ 


/*  Set  IPL  procedure  defined  in  ISR.H68.  ♦/ 
extern  void  SetIPLC : nc ) : 


/* - - 

/*  STATIC  DECL 
/* - 


/* - */ 

/*  PROCEDURE  Division  */ 

/* - */ 

/*  - - - - - -  ^ 

SerialPortInit C ) 

Parameters:  None 

This  procedure . causes  the  ZS5C30  serial  port  to  be  initialized. 


Returns:  Moching 

♦/ 

void  SerialPor tini tO 

/*  Initialize  A  port. 

/*  Initialize  B  port.  */ 

/*  Initialize  buffer  control  variables 

bATxXoff=rALSE; 

bBTxXoff=FALS£; 

byAReqXonXof  f=H0XriEQ ; 

byBReqXonXof f=H0XREQ ; 

cpARxBuf f =cARxBuf f er : 
cpATxBuff^cATxLUiffet  ; 
cpBRxBiiff*:cBRxBuffer; 
cpBTxBuft^-vM'.TxBnffer: 

nARxHoau"'' ; 
nARxTai.l  -0 : 


/*  Set  transmit  XOFF  flag  false.  */ 
/+  Set  request  XON/XOFF  to  noreq  */ 
/•+  Initialize  buffer  pointers.  */ 

/*  Initialize  buffer  indeces.  */ 
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nATxHead=0 ; 
nARxTail=0 : 
nBRxHead=0 ; 
nBRxTail^O ; 
nBTxHead=0 ; 
nBTxTail=0 ; 

/*  Done.  +/ 
return  ; 

> 

/♦ - 

.-s^getch  ( iAddr ) 

Parameters : 


iAddr:  port  address 


This  procedure  gets  a  character  from  the  buffer  or  ESCC. 

Returns:  A  charcicter. 

*/ 

#if  ESCCMBUF 

/*  The  following  is  the  non-buffered  version  of  the  ^s^getch  procedure.  */ 
-S.getch(int  iAddr) 

register  char  cChar: 

/*  Wait  for  character  in  port  A  Rx  buffer.  */ 
while( !_3^kbhit(ESCC_CACR))  ; 

cChar=i)iTR£V[(3VTE)GET?C'::SCC^CADR)]  ; 

/ *  bone  .  =*'/ 
return  (cChar): 

> 

#else 

/*  The  following  is  the  buffered  version  of  the  _s_getch  procedure.  */ 
.-S_getch(int  iAddr) 

register ■ char  cChar; 

/*  Check  for  character  in  buffer  A. 
while  (TRUE)  { 

if  (nARxHead  !=  nARxTail)  { 

/♦  Get  character  from  buffer.  */ 
cChar=cAR>;3uff er CnARrcTail]  ; 

/*  Increment  tail  index  and  perform  wrap-around.  ♦/ 

++nARxTail : 

nARxTail =nARxTail  &  ESCCBUFW; 

/*  If  the  receiver  state  is  XOFF  and  buffer  length  is  less 
than  threshold,  and  there  is  no  pending  XON/XOFF  request 
then  request  transmission  of  XON.  */ 
if  (byAReqXonXoff=RCVXOFF)  {  /*  If  XOFF...  ♦/ 

if  (((nARxHead-nARxTail)  7.  ESCCBUFL)  <  ESCCXOFT)  { 
byAReqXonXoff=XOiIREQ; 

} 

> 

/*  Da;,,- .  ♦  ' 

rotui  i:  (  cdiia  t  )  : 

} 


} 
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> 

#endif 

- - 

getchO 

Parameters:  Hone 

This  procedure  gets  a  character  from  the  buffer  or  ESCC  and  is  a 
wrapper  for  _s_gecch( ) . 

Returns:  A  character. 

*/ 

int  getchO 

•C  ; 

s  getch(ESCC_CADR) : 

> 

- - 

_s_kbhit ( iAddr ) 

Parameters : 


iAddr:  port  address 


This  procedure  tests  for  a  character  on  the  ESCC. 

Returns:  TRUE  if  there  is  a  character,  FALSE  otherwise. 

*/ 

#if  ESCCHBUF  ■  •  4:  ..  */ 

/*  The  following  procedure  is  the  non-buff ered  version  of  _s_Kbi.it.  / 

s  kbhit(int  iAddr) 

BYTE  cChar ; 

cChar=BITREVC(5YTE)  GET3(ESCC_CACR)].;  /*  Read  register  zero.  */ 
if  (cChar  £  ESCC.R.XAV)  return  (TRUE);  /♦  Yes,  there  is  a  character.  */ 

/*  No,  there  is  not  a  character.  */ 
return  (FALSE) ; 


/*  The  folloi-ring  procedure  is  the  buffered  version  of  _s_kbhit.  */ 
_s_kbhit(int.  iAddr) 


/♦  Check  receive  buffer  for  characters.  */ 
if  (nARxHead==nARxTail)  return  (TRUE); 
else  return(FALSE)  ; 


/♦  Character  in  buffer-  ♦/ 
/*  No  character  in  buffer. 


> 


♦/ 


#endif 

A - 

kbhitO 


Parameters:  None 

This  procedure  tests  for  a  character  on  the  ESCC  and  is  a  wrapper 
for  _s_kbhit. 

Returns:  TRUE  if  character  .^:<ists  on  ESCC,  FALSE  otherwise 

*/ 

int  kbhitO 

{ 

retiiriU...n  .kl'-hic.  (  K:’.CC:.,CADR)  ) ; 
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> 

/* - 

_s.putch(  i  Addr ,  cDcitci) 

Parameters : 

iAddr:  port  address 

cData:  Cluir  actor. 


This  procedure  transmits  a  character  on  the  ESCC. 

Returns:  Nothing. 

*/ 

#if  ESCCWBUF 

/*  The  follotjing  rpocedure  is  the  non-buff ered  version  of  _s_putch.  */ 
putch(int  iAddr.  int  iData) 

{ 

char  cTmp; 

/*  Wait  until  Tx  buffer  timpty.  ♦/ 

whileC  !  (BITREVC(EVTE)Cr:TS(ESCC_CACR)]  k  ESCC.TXEH)); 

/♦Transmit  the  character.  ♦/ 

PUT8(ESCC_CADR,BITR£V[(BYTE)(0xFr  k  iData)]); 

/*  Done.  +/ 
return  ; 

> 

#else 

/♦  Tiie  following,  procedure  is  the  buffered  version  of  _.s_puuch. 
putch(int  iAddr,  int  iData) 

char  cTmp; 

LONG  IThreshold; 

/*  Begin  section  which  should  not  be  interrupted  by  the  ESCC  ISR.  */ 
SetIPL(0x700) ; 

if  (nATxHead==nATxTail  kk  fbATxXoff)  { 

/♦  Put  character  to  ESCC.  ♦/ 
for  ( ; : )  { 

PUTS(ESCC_CACR,OxCO) ;  /♦  Read  register  zero.  ♦/ 

if  (BITREVC(EYTE)  GETS(ESCC.CACR)]  k  ESCC^TXEM)  {  /*  TX  buffer  empty.  */ 
PUTS(ESCC^CADR,BITKEVC(BYT£)(OxFF  k  iData)]);  /*  Put  the  character.  ♦/ 
break : 

} 

> 

> 

else  { 

/*  Check  for  Tx  buffer  full,  and  wait  if  full.  */ 
while  (((nATxHead-nATxTail)  X  ESCCBUFL)  >  ESCCXOFT)  ; 

/♦  Add  character  to  buffer.  ♦/ 

cATxBuf f er [nATxHead] = (char ) (OxFF  k  iData); 

/♦  Increment  head  counter  and  perform  wrap-around.  +/ 

++nATxHead ; 

nATxNead  =  nATxHead  fc  ESCCBUFV/ ; 

} 

/*  Restore  I!'l.  iuv'.M  .  ♦/ 

■  SetlPLCOxOOOO^  ; 

/*  Don»;. 
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return  : 

} 

#endif 

/* - 

putchCcData) 

Parconeters : 


iData:  '  Character. 

This  procedure  transinitc  a  character  on  the  ESCC  and  is  a  wrapper 
for  _s_piitch. 

Returns:  Zero. 

*/ 

int  putch(int  iData) 

return ( .s^pucch( ESCC^CADR , iData) ) ; 

> 

/♦ - - - - 

_s.exit() 

Parameters:  None 

This  procedure  is  the  exit  to  monitor  procedure.  There  is  no 
monitor  so  the  program  puts  itself  in  a  loop. 

Returns:  This  procedure  never  returns. 

*/ 

void  _s_exit-() 

{ 

for  (; ;)  ; 

> 

/* - - 

_s_clkinit() 

Parauneters  :  None 

This  procedure  is  supposed  to  initialize  the  system  clock.  The 
InvestiG-ATOR  lacks  a  clock  so  this  is  a  null  call. 

Returns:  Nothing. 

♦/ 

void  _s_clkinit() 
return; 

} 

/* - - - — 

_s_time() 

Parameters:  None 

This  procedure  is  sup]*.»osed  to  return  the  current  time.  The 
InvestiGATQR  lacks  a  clock  so  this  is  a  null  call. 

Returns:  Time=0. 

*/ 

long  _s_tiino(  ) 
return  0; 

> 

/♦  - - - - - - 

,  s  _  i  n  i  t .  j  :  M  ) 


215 
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Parameters:  Mone 

This  procedure  is  a  wrapper  for  SerialPortInit . 

Returns:  Nothing. 

*/  ■ 

_s_init_port() 

/*  Initialize  serial  port.  +/ 

SerialPortInit ; 

/*  Done.  */ 
return; 

} 


D.S  SCSI  I/O  (^xlr:  SM1(\(’ 


/* 

Invest iG ATOP.  Backplane  Firmware  for  Am33C93A  SBIC 


Major  Rev :  0 
Minor  Rev :  0 
Date:  2/6/92 

Author:  Jon  Hellott 

High  Speed  D’igit.v-il  Architecture  Laboratory 
University  of  Florida 
405  CSE  Building 
Gainesville,  FL  32611 

This  code  constitutes  the  SBIC  firmware. 

*/ 

/* - - */ 

/*  INCLUDE  SECTION  */ 

- ♦/ 

/* - ♦/ 

A  MACRO  DEFINITIONS  ♦/ 

/* - ♦/ 

#define  PUTS(addr , val)  (*(unsigned  char  ♦) (addr) )=val 
#define  GET8(addr)  (♦(unsigned  char  ♦)(addr)) 

/* - - */ 

/♦  CONSTANTS  SECTION  ♦/ 

- */ 

/♦  Logicals  */ 

#define  TRUE  1 

#define  FALSE  0 

/♦  ASCII  Constants 

#define  XOM  0.x  11  /♦  ‘Q  ♦/ 

#define  XOFF  0x13  /♦  'S  ♦/ 

/♦  SBIC  Port  Definitions  ^/ 

#define  SCSI_PGRT_II)  S 
#define  SBIC^ADDR  0x00020000 
#define  SBIC  OHHID  SBIC..ADDR 
#define  SBIC.CTKL^RF.C;  SBIC^ADDRU 
#d e  f  i  n  e  S  B  1 1 T  I  M  I-.O  UT  S  B I C  .  A  D  [)  H  2 

#define  SBTC.TOT^SF.CT  SBIC., ADl)!i+-3 
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^define  SBIC^TQT.HEAD  SB  [C.,  A.OIiR  K 
#define  SBIC.CYLH.HSB  SBIC.ADDR^-S 
#define  SBIC.CYLH_LSB  331C.ADDK+6 
#define  SBIC^LOGADDRH  SBIC_ADDR+7 
#define  SBIC  L0GADDR2  SBIC.ADDR+8 
#define  SRIC_L0GADDR3  SBIC^Ar;DR+9 
#defiiie  SBIC^LGGADDRL  SBIC^ADDFi 10 
#define  SBIC_SECTWUMR  SBr.C^ADBR+U 
#define  SBIC.HEADNUMR  SBrC.AL;:R+l2 
#define  SBIC  CYLMUM.il  SBIC_ADDR+13 
#define  SBIC.CYLHUH.L  SBIC_ADDR+14 
#define  SBIC  TARG.LUI'l  SBIC.ADDR+15 
#define  SBIC  CHD.PHAS  SBIC^ADDR+16 
#define  SBIC.SYNCH^TR  SBIC^ADDR+17 
#define  SEIC.TCMTR.M 
#define  SBIC^TCBTR.2 
#define  SBIC_TCIITR.L 
#define  SBTC_DEST_ID 
#define  SBIC.SRC^ID 
Sdefine  SBIC.SCSI.ST 
#define  SBIC.CHD.REG 
#d€fine  SBIC.DATAREG 


SBIC_ADDR+18 
SBIC  ADDR+19- 
S3IC_ADDR+20 
SBIC.ABDR+21 
SBIC  ADDR+22 
siiclADDR+23 
SBIC.ADDR+24 
SBIC_ADDR+25 


SBIC  Ccn^inands. 
#define  SBIC.RESET 
^define  SBIC. ABORT 
#defiiie  SBIC.ASSATK 
#define  SBIC.HEGATH 
#define  SBIC.DISCON 
#defiiie  SBIC.RESEL 
^define  SBIC^SELWATN 
#defiiie  SBIC.SELOATW 
#define  SBIC.SELWATWT 
#defiiie  SBIC.SELOATMT 
#define  SBIC.RESELRD 
#d€fine  SBIC.RESELSD 
#define  SBIC.wFSELRCV 
#defiiie  SEIC.SSTATCMP 
#define  SBIC.SEHDDISC 
#define  SBIC.SETIDI 
#define  SBIC.RECCHD 
#define  S3IC.RECDATA 
#defiiie  SBIC.RECMESO 
#define  SBIC.RECUIO 
#define  SBIC.SEMDSTAT 
#defiiie  SBIC.SEHDDATA 
#define  SBIC.SEHDMESI 
#define  SBIC.SEKDUII 
#define  SBIC.TRANSADR 
#define  SBIC.TRAMSINF 


OmOO 
0x01 
0x02 
0x03 
0x04 
CxOS 
Cx06 
0x07 
0x08 
0x09 
OxOA 
OxCB 
OxOC 
OxOD 
OxOE 
OxOF 
0x10 
0x11 
0x12 
Qxl3 
0x14 
0x15 
0x16 
Ox  17 
OxlS 
0x20 


/*  SBIC  Inter 
/♦  These  code 
#define  SBIC. 
#define  SBIC. 

#define  SBIC. 
#define  SRTC_ 
#define  SBIC_ 
#define  SRTC. 
#define  SBIC 
#define  SBIC 
#define  SIUC 


rupt  Status  C 
<v.  are  define*. 
IRQ. RESET 
TRQ..RESETA 

IRQ.RESELT 
IRQ.SELI 
IRQ.RECMA 
IRQ.RECA 
IRQ.ADRTRNS 
.lHg„SKl.T 
.  IRQ  .SdCMCI 


'od  e  5  .  ^  / 

\  for  the  SCSI  Status  Register.  */ 

0x00  /♦  SBIC  Reset,  no  advanced  features.  ♦/ 

0x01  /♦  SBIC  Reset,  adv .  features  enabled.  */ 

OxlO  /*  Resel.  comp,  sue.,  con.  as  target.  ♦/ 
0x11  /*  Sel.  comp,  sue.,  con.  as  initiator.  */ 
0x13  /♦  Crad.  comp,  sue.,  ATN  not  asserted.  ♦/ 
0x14  /*  Cmd.  comp,  sue.,  ATN  asserted.  */ 

0x15  /+  Acldr.  translation  comp,  successfully.  ♦/ 
OxlG  /♦  Select  and  transfer  comp.  sue.  */ 

Oxlo  /♦  MCI  Transfer  succeeded.  ♦/ 
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#def ine 

SBIC^IRQ^TIPA 

0x20 

/♦ 

#def ine 

SBIC.IRQ^SDPST 

0x21 

/* 

#def ine 

SBIC.IRQ.SELAB 

0x22 

/* 

#def ine 

SBIC^IRQ_RECABMA 

0x23 

/♦ 

#def ine 

SBIC_IRQ^RECABA 

0x24 

/» 

#def ine 

SBIC, IRQ_RES ELF 

0x27 

/» 

#def ine 

SBIC_IRQ_TAMCI 

0x23 

/* 

#def ine 

SBIC,IRQ,IMVCHD 

0x40 

/* 

#def ine 

SBIC_IRQ_UNEXDISC 

0x41 

/* 

#def ine 

SBIC_IRQ_SELTIMQ 

0x42 

/* 

#def ine 

SBIC.IRq_PE.NA 

0x43 

/♦ 

#def ine 

SBIC.IRQ.PEA 

0x44 

/* 

#def ine 

SBIC.IRQ,LAEDB 

0x45 

/* 

#def ine 

SBIC,IRQ,NARESF 

0x46 

h 

#def ine 

SBIC.IRQ.INCSTAT 

0x47 

/* 

#def ine 

SBIC_IRQ,UNEXPHCI 

0x48 

/* 

#def ine 

SBIC_IRq,RESNOID 

0.V30 

/* 

#def ine 

SBIC_IRq_RESADV 

OxSl 

/* 

#def ine 

SBIC,IRq_SELNA 

0x32 

/* 

#def ine 

SBIC, IRQ, SELA 

0x33 

/* 

#def ine 

SBIC_IRQ,ATN 

0x34 

/■* 

#def ine 

SBIC,IRq,DISCOM 

0x85 

/* 

#def ine 

SBIC_IRq,ySRP 

0x87 

/* 

#d€f ine 

SBIC,I.Rq,REqMCI 

0x33 

/♦ 

Trans  info  cmd  paused  w/  ACX  */ 
Save-data-point ,r  mes .  rec .  during  S&T  */ 
Select/Reselect  command  aborted.  ♦/ 
Rec/Send  err/abort,  ATN  not  asserted.  */ 
Rec/Seud  err/abort,  ATN  asserted.  */ 

Resel  dur  S&T,  !=target.  */ 

Transfer  aborted,  new  phase=MCI.  ♦/ 

Invalid  command  issued.  */ 

Unexpected  disconnect  by  target.  */ 
Timeout  during  S&T,  SBIC  disconnected.  */ 
Parity  error,  ATN  not  asserted.  */ 

Parity  error,  ATN  asserted.  */ 

Logical  address  exceded  disk  boundary.  */ 
Resel  dur  S&T,  !=target,  not  adv  mode  */ 
Incorrect  status  byte  rec.  dur.  S&T.  */ 
Unexpected  phase  req,  req=MCI.  */ 

Resel,  con.  as  initiator,  no  ID  mes.  */ 
Resel  in  advanced  mode.  */ 

Selected  as  target,  ATN  not  asserted.  */ 
Selected  as  target,  ATN  asserted.  ♦/ 

ATN  signal  asserted.  */ 

A  disconnect  has  occured.  */ 

A  wait  for  sel  &  rec  has  paused.  */ 

The  REQ  has  been  asserted,  req=MCI.  */ 


/t-  SBIC  Interrupt  Status  KCI  Codes.  */ 

/*  KCI  codes  are  masked  with  SBIC  interrupt  status  codes  of  type  KCI 
to  produce  the  full  SBIC  status  code.  ♦/ 


#def ine 

SBIC, MCI, DO 

0x0 

/* 

Data  out  phase 

.  »/ 

#def ine 

SBIC_HCI,DI 

0x1 

/* 

Data  in  phase. 

*/ 

#def ine 

SBIC,MCI,CMD 

0x2 

/* 

Command  phase. 

*/ 

#def ine 

SBIC,HCI,STAT • 

0x3 

h 

Status  phase. 

*/ 

#def ine 

SBIC,MCI,UI0 

0x4 

/* 

Unspecified  info  out  phase.  */ 

#def ine 

SBIC_HCI,UII 

0x5 

/♦ 

Unspecified  info  in  phase.  */ 

#def ine 

SBIC,MCI,M0 

0x6 

/* 

Message  out  phase.  */ 

#def ine 

SBIC_HCI,HI 

0x7 

/• 

Message  in  phase.  */ 

/*  SCSI 

Commands  ♦/ 

/*  Group  0.  »/ 

#def ine 

TEST  UNIT  READY 

0x00 

#def ine 

REqUEST  SENSE 

0x03 

#def ine 

RECEIVE 

OxOS 

#def ine 

SEND 

OxOA 

#def ine 

INqUIRY 

0x12 

#def ine 

R£CV,DIAG, RESULTS 

Ox  1C 

#def ine 

SEMD.DIAGNOSTIC 

OxlD 

/*  SCSI 

Message  Code  Value.s 

#def ine 

SCMS,CHDCHP 

0x00 

#def ine 

SCMS  EXTHES 

OxOi 

#def ine 

SCMS  SAVDP 

0x02 

#def ine 

SCMS,RESPTR 

0x03 

#def ine 

scHs,DrscnN 

0x04 

#def ine 

SCMS  INIDHRH 

OxOS 

#d€f ine 

SCMS.ABORT 

Ox  On 

#def ine 

sch:;  mesrej 

0x07 

#def ine 

SCMS,M0nP 

OxOo 

#def ine 

SCMS  HHSPK 

0x00 
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#define  SCHS.LCMBCMP  OxOA 

#define  SCMS_LCMDCMPF  OxOB 

^define  SCMS.BUSDRES  OxOC 

#define  SCHS.IDENTIFY  0x30 

/♦  SCSI  Status  Byte  Code  Values  ♦/ 
#define  STAT.GOOD  0x00 

#define  STAT.CHKC  0x04 

#define  STAT.CDHG  0x06 

#define  STAT.BUSY  0x03 

#define  STAT.IHDG  0x10 

#define  STAT.ICHG  0x14 

#define  STAT.RESC  0x18 


/* - -  ♦/ 

/*  TYPE  DEFINITIONS  */ 

/* - 

#include  "basetype .h" 


/♦  SCSI  Command  Frame  Type  Definitions.  */ 

typedef  struct  _SCSISixByteFrc<me  { 

BYTE  ucOpcode; 

BYTE  ucLUM.LBA; 

BYTE  ucLBA,ucLBA_LSB: 

BYTE  ucControl : 

}  SCSISixByteFrame; 

typedef  struct  _SCSITen3yterrame  { 

BYTE  ucOpcode; 

BYTE  ucLUM ; 

DWORD  ulLBA; 

BYTE  ucReserved; 

WORD  uiXferLen; 

BYTE  ucControl: 

}  SCSITenByteFrame; 

typedef  struct  .SCSITwelveByteFrame  { 

BYTE  ucOpcode; 

BYTE  ucLUH ; 

WORD  ulLBA: 

BYTE  ucReservedl  .ucReservedO.ucReservedS.- 

WORD  uiXferLen; 

BYTE  ucControl; 

>  SCSITwelveByteFrame: 


/* - ♦/ 

/*  EXTERNAL  REFERENCES  */ 

/♦ - ♦/ 

extern  union  { 

SCSISixByteFrame  Six; 

SCSITenByteFrame  Ten; 
SCSITwelveByteFrame  Twelve ; 
}  SCSCrndFrame; 

/* - 

/*  STATIC  DKCLARATIOHS  »/ 

/♦ - - - */ 

/♦ - - */ 

/*  PRQCEDURK  DlVISmH  ♦/ 

/♦  -  - »/ 
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/* - 

SCSI  Port  Ini  t  (  bir.r  Suable) 

Parameters: 

bIntEnable  —  Tr/JE  ->  Interrupts  enabled. 

F.^LSE  ->  Interrupts  disabled. 

This  procedure  initiali^ies  the  SCSI  port. 

Returns:  Kothing 

*/ 

void  SCSIPortInit (,5C0L  bIntEnable) 

{ 

/+  Reset  the  SBIC  and  set  the  SCSI  ID  of  the  InvestiGATOR. 

Enable  advanced  features.  */ 

PUT8(SBIC^0yMID,S-:SI_P0RT„ID  &  0x84); 

if  (bIntEnable)  { 

/*  Setup  the  SBIC  for  polled  I/O  mode,  no  halt  on  parity  fault,  ATN* 
and  disable  disconnect  interrupts.  ♦/ 

PUT8 ( SB IC_CTRL_REG , 0x00 ) ; 

} 

else  •[ 

/*  Setup  the  SBIC  for  polled  I/O  mode,  no  halt  on  parity  fault,  ATN* 
and  disable  disconnect  interrupts.  */ 

PUT8(SBIC„CTRL  P.EG.OxOO); 

> 

/*  Disable  timeout  for  select/reselect  commands.  */ 
PUT8(SBIC^TIHEOUT,OxOO) ; 

Done.  ^/ 

return  ; 

} 


D.9  Iiitorfiipl.  Uonlini'.'C  I.SI\..M(iS 

;  Description:  Exception  Vector  Table  and  Interrupt  Service  Routines  for 
.  -  Backplane  Firmware 

> 

\  Major  Rev:  O'. 

;  Minor  Rev :  0 
;  Date:  2/6/92 

;  Author:  Jon  Mellott 

;  High  Speed  Digital  Architecture  Laboratory 
;  University  of  Florida 
;  405  CSE  Building 
;  Gainesville,  FL  B26ii 


;  IDENTIFICATION  DIVISION 

isR  IDNT  0,1  ;  Module  ISR,  Major  rev=0,  Minor  rev=0 

SECTION  0  :  'Place  in  section  zero  (ROM) 


ENVIRONMENT  DIVISION 
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EXTERNA  I  RErT'.  i‘.  !•  HCES 


XREF  .GENTRY 
XREF  POSTINIT 
XREF  BITREV 


Scarcup  module  reference. 
POST  Code  entry  point. 

Bit  reversal  table. 


EXPORTS 


XDEF  cARxBuffer 
XDEF  cATxBuffer 
XDEF  cBRxBuffer 
XDEF  cBTxBuffer 

XDEF  cpARxBuff 
XDEF  nARxHead 
XDEF  nARxTail 
XDEF  cpATxBuff 
XDEF  nATxHead 
XDEF  nATxTail 
XDEF  bATxXoff 
XDEF  byAReqXonXoff 

XDEF  cpERxBuff 
XDEF  nBRxHead 
XDEF  nBRxTail 
XDEF  cpBTxEuff 
XDEF  nBTxHead 
XDEF  nBTxTail 
XDEF  bBTxXoff 
XDEF  byBReqXonXof f 


ESCC  Port  A  receive  buffer. 

ESCC  Port  B  transmit  buffer. 

ESCC  Port  A  receive  buffer. 

ESCC  Port  B  transmit  buffer. 

Pointer  to  port  A  Rx  buffer. 

Port  A  head  index. 

Port  A  tail  index. 

Pointer  to  port  A  Rx  buffer. 

Port  A  head  index. 

Port  A  tail  index. 

Port  A  transmit  disable  boolean  flag. 
Port  A  transmit  XON/XOFF  request  flag. 

Pointer  to  port  A  Rx  buffer. 

Port  A  head  index. 

Port  A  tail  index. 

Pointer  to  port  A  Rx  buffer. 

Port  A  head  index. 

Port  A  tail  index. 

Port  A  transmit  disable  boolean  flag. 
Port  A  transmit  XON/XOFF  request  flag. 


XDEF  bySCSSourcelD 
XDEF  bSCSSIDValid 
XDEF  SCSCmdFrarae 


SCSI  Source  ID  value. 

SCSI  Source  ID  valid  flag. 
SCSI  Command  frame  storage. 


XDEF  dwBusErrorCount  :  Bus  error  counter. 


XDEF  SetIPL  :  SetIPL  procedure. 


;  EQUATES 
*  — —  —  — — 

;  Base  location  of  RAH. 

RAM3ASE  EQU  $100000 

;  InvestiGATOR  I/O  port  location  and  misc.  constants. 
INCLUDE  INVESTIO.INC 


;  Exception  Vector  Table  Definition. 

SECTrOK  I  :  Section  1  is  the  text  section. 

ORG  $0  :  Ensure  that  EVT  is  located  0  $0. 

EXCEPTI0N_TABLE: 

;  Reset  Initial  Interrupt  Stack  Pointer 
DC.L  TlFFFFF 

;  Reset  Initial  Proi:,ram  Counte: 

DC.  I.  pnr.TiHrr 

;  Bus  Error  i-ai 
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DC.L  BERR^IHTKRRUPT 

Address  Error  Exception 

DC.L  HULL.IHTEKRUPT 

Illegal  Instruction 

DC.L  null_interr;?t 

Zero  Divide  Trap 

DC.L  NULL_INTERRUPT 

CHK,  CHK2  Instruction  Trap 

DC.L  WULL. INTERRUPT 

cpTRAPcc,  TRAPcc,  TRAPV  Instructions 
DC.L  M.ULL.INTERRUPT 

Privledge  Violation 

DC.L  NULL^INTERRUPT 

Trace 

DC.L  NULL, INTERRUPT 

Line  1010  Emulator 

DC.L  NULL,INTERRUPT 

Line  1111  Emulator 

DC.L  NULL. INTERRUPT 

(Reserved) 

DC.L  $0 

Coprocessor  Protocol  Violation 
DC.L  NULL, INTERRUPT 

Format  Error 

DC.L  NULL_INT£RRUPT 

Unitialized  Interrupt 

DC . L  NuLl, INTERRUPT 

(Reserved) 

DC.L  $0 ,  $0 , $0 , $0 , $0 , $0 , $0 , $0 

Spurious  Interrupt 


DC.L 

NULL,INT£RRUPT 

Level 

1 

Interrupt  Autovector 

DC.L 

ARRAY,INTERRUPT 

Level 

2 

Interrupt  Autovector 

DC.L 

IGBUS_INTERRUPT 

Level 

3 

Interrupt  Autovector 

DC.L 

NULL,INTERRUPT 

Level 

4 

In t err 

upt  Autovector 

DC.L 

SI0_INTERRUPT 

Level 

5 

Interrupt  Autovector 

DC .  L 

NULL, INTERRUPT 

Level 

6 

Interrupt  Autovector 

DC.L 

SCSI, INTERRUPT 

Level 

7 

Interrupt  Autovector 

DC.L 

NULL, INTERRUPT 

TRAP  no 

Ins tru 

ction  Vector 

DC.L 

NULL, INTERRUPT 

TRAP  #1 

I  ns  tru 

Ctioil  V«;CtOt 

DC.L 

MUf.I.  .INTERRUPT 

TRAP  U 

1  nnt  ni 

Ct.  ion  Vt:-'T.^,{ 

DC.L 

NU!.!.  . !  IIT:•:^^RUPT 

TRAP  n 

3 

1  n::  t  1  n 

v  l.  iiUi 
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DC.L  NULL^lMTFJtPwUPT 

TRAP  #4  Instruction  Vector 

DC.L  KULL.IWTERRUPT 

TRAP  #5  Instruction  Vector 

DC.L  NULL.IKTERRUPT 

TRAP  #6  Instruction  Vector 

DC.L  MULL_ INTERRUPT 

TRAP  #7  Instruction  Vector 

DC.L  KULL.INTERRUPT 

TRAP  #8  Instruction  Vector 

DC.L  NULL.TMTERRUPT 

TRAP  #9  Instruction  Vector 

DC . L  WULL^ INTERRUPT 

TRAP  #10  Instruction  Vector 

DC.L  HULL^IMTERRUPT 

TRAP  #11  Instruction  Vector 

DC.L  KULL.IMTERRUPT 

TRAP  #12  Instruction  Vectcr 

DC.L  NULL.IMTERRUPT 

TRAP  #13  Instruction  Vector 

DC . L  NULL^INTERRUPT 

TRAP  #14  Instruction  Vector 

DC.L  KULL.IMTERRUPT 

TRAP  #15  Instruction  Vector 

DC.L  NULL.-IIITERRU.^T 

FPCP  Branch  or  Set  on  Unordered  Condition 
DC.L  NULL.INTERRUPT 

FPCP  Inexact  Result 

DC . L  KULL.IMTERRUPT 

FPCP  Divide  by  Zero 

DC.L  NULL.II'ITER.RUPT  . 

FPCP  Underflow 

DC.L  NULL.INTERRUPT 

FPCP  Operand  Error 

DC.L  NULL.INTERRUPT 

FPCP  Overflow 

DC.L  NULL.INTERRUPT 

FPCP  Signaling  NAN 

DC.L  NULL.INTERRUPT 

(Reserved) 

DC.L  to 

MMU  Conf  ii;uration  Error 

DC.L  NULL.INTERRUPT 

Defined  for  HC6SS51  not  used  by  HC68030 

DC.L  NULL.INTERRUPT 

Defined  for  HCSSoSl  not  used  by  MC68030 

DC.L  NULL. rNTERRUPT 

Unassigned,  reserved 


00.  L 

MULL 

IHTERKUPT 

00  .  L 

NUI.r. 

TMTI"rtRIJPT 

DO  .  L 

MUI.!. 

rNTKRkUPT 

DO  .  L 

MUr.L 

1  IITKivKUPT 

DO.l. 

MUI.!. 

I MTKRRUPT 
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;  User  defined  vectors 

DCB . L  1 92 , NULL^ I MTERRUPT 


INTERRUPT  HANDLERS 


SECTION  0  ;  Section  0  is  the  code  section. 

NULL^INTERRUPT :  ;  This  handler  used  by  undefined  exceptions. 

.RTE  ;  Return  to  e.xecution. 


;  ARRAY  INTERRUPT  HANDLER 

9 

;  Description: 

;  Service  of  this  interrupt,  is  target  system  dependent. 

ARRAY  INTERRUPT: 

RTE 


;  I/O  BUS  INTERRUPT  HANDLER 

9 

;  Description: 

;  Service  of  this  interrupt  is  target  system  dependent. 

lOBUS.IKTERRUPT: 

RTE 


;  SERIAL  I/O  INTERRUPT  HANDLER 

9 

;  Description: 

;  This  interrupt  services  the  serial  port. 

;  The  processing  steps  are  as  follows: 

9 

;  1.  Determine  the  source  of  the  interrupt.  Possible  sources  are  the 
;  following: 

;  Receiver  Interrupt  sources: 

;  INT  on  1st  Rx  char  or  special  condition 

;  INT  on  all  Rx  char  or  special  condition  (***) 

;  Rx  INT  on  special  condition  only 

;  Parity 

;  Transmit  Buffer  Empty  (+**) 

;  External/Status  Interrupt  Sources: 

;  Zero  count 

;  DCD 

;  SYNC/HUNT 

;  CTS 

;  Tx  Underrun/EO.M 

;  Break/abort 

> 

;  The  actual  interrupt  conditions  are  limitted  to  those  indicated  by 
;  (♦++)  above.  Interrupt  source  may  be  determined  by  examining  RR3. 

> 

;  2.  Perform  interrupt  service. 

;  If  Tx  buffer  empty,  check  buffer  and  transmit  next  byte. 

;  If  Rx  char,  get  char  and  place  in  buffer. 

;  If  Rx  .special  condition,  then  handle. 

SIO^INTERRUPT: 

:  Save  rr->' ir.r.e's  . 

MnVEM.  L  l)0-0V/A0-Ao  .-(A7) 
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;  Initialize  adciresc  registers. 

MOVEA.L  #SIOA_DATA,AO 
HOVEA.L  #SIOA_CTRL,Al 
MOVEA.L  SSIOB.DATA, A2 
MOVEA.L  #SI0B_CTRL,A3 
MOVEA.L  #BITREV,A4 

SIO.BEGIN:  ;  Retreive  interrupt  source  information. 

MOVE.B  #R3.(A1) 

MOVE.B  (A1),D0 

:  Check  for  Channel  A  Rx  interrupt. 

BTST  #RR3ARIP,D0 

BEQ.B  SIOIATX 

;  Get  data  byte  from  channel  A  Rx  register. 

MOVE.B  (AO),Dl 

ANDI.W  )#$FF,D1  ;  Perform  bit  reversal. 

MOVE.B  (A4,D1.W»1) ,D1 

;  Check  for  received  XOH/X.OFF  character  and  set  channel  A  XOIT/XOFF 
:  accordingly. 

CHP.B  #X0M,D1 

BME.B  1$  :  Not  XOH  character. 

CLR.B  bATxXoff  ;  Set  channel  A  Tx  to  XON. 

BRA.B  SIOIATX  ;  Continue... 

CHP.B  SXOFF.Dl 

BBE.B  2$  :  Not  XOFF  character. 

MOVE.B  }fl, bATxXoff  ;  Set  channel  A  Tx  to  XOFF. 

BRA.B  SIOIATX  .  ;  Continue... 

;  Add  the  character  to  the  receive  buffer. 

MOVEA.L  cpARxBuff,A5  ;  Get  the  pointer  to  the  buffer. 

MOVE.L  nAPvxKead,D2  ;  Get  the  head  index. 

MOVE.B  D1 , (AS,D2.y*l)  ;  Store  the  data  byte. 

AMD.L  #ESCCBUF'«,D2  ;  Handle  wrap  around. 

MOVE.L  D2,nARxHead  ;  Save  index. 

:  Check  whether  we  should  request  XOFF. 

SUB.L  (nARxTail) ,D2 

BGE.B  3$  :  Non-negative  result. 

ADD.L  #ESCCEUFL,D2  ;  Negative  result,  perforin  mod  correction. 

CMP.L  #ESCCX0FT,D2  ;  Check  threshold. 

BLT.B  4$  :  No  XOFF  required. 

MOVE.B  SXOFFREQ.byAReqXonXoff  ;  Request  XOFF. 

;  Check  for  Channel  A  Tx  interrupt. 

BTST  #RR3ATIP,D0 

BEQ.B  SIOIBRX 

;  Check  for  Tx  XOH/XOFF  request. 

CHP.B  SMOXREQ.byAReqXonXoff 

BEQ.B  1$  ;  No  XOH/XOFF  request. 

CHP.B  (JRCVXOFF.byAReqXonXoff 

BF.Q.B  1$  :  No  XON/XOFF  request. 

CMP . B  eXOFFREQ .by AReqXonXof f 

BNE.B  '.hi; 

HOVE . 8  « XOFFBR . ( AO )  ;  Transmit  XOFF 

BRA.B  -i!; 

HnVE.B  cXONBIi.  (AO) 

CI.R  .  8  byAil'rqXonXo  ff 

BKA.li  hldlBIlX 


1$; 

2$: 

3$: 

4$: 

SIOIATX: 


2$: 

4$: 


Transmit  XON 
Clear  request  flag. 

Done  processing  xmit  request. 
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1$: 


Check  XCN/XOFF  state  of  port  A  Tx , 


CMP.B 
BEQ.B 

;  Port  is 

HOVE.L 

CMP.L 

BEQ.B 

MOVEA.L 

CLR.L 

MOVE.B 

HOVE.B 

ADD.L 

AMD.L 

KOVE.L 


«0,bATxXoff 
SIOIBRX 


Port  is  XOFF. 

Check  for  new  character  to  xmit. 

Get  transmit  buffer  tail  index. 
Check  against  transmit  buffer  head. 
Buffer  is  empty. 

Get  pointer  to  transmit  buffer. 


XOM. 
nATxTail , D2 
nATxHead,D2 
SIOIE.RX 
cpATxBuf  f , AS 
D3 

(A5,D2.w*l) ,D3 
(A4,D3.W+1) ,(A0) 

#ESCCBUFy ,D2 
D2, nATxTail 


Get  byte. 

;  Bit  reverse  and  put  byte  to  ESCC. 
Increment  tail  index 
Handle  wrap  around. 

Save  index. 


SIOIBRX: 


SIOIBTX: 


;  Check  for  Channel  B  Rx  interrupt. 
BTST  #RR3BRIP,D0 

BEQ.B  SIOIBTX 


;  Get  data  byte  from 
HOVE.B  (A2),D1 


channel  B  Rx  register. 


:  Check 
BTST 
BEQ.B 
NO? 


for  Cha:u:el  B  Tx 
;fRR3BTIP,D0 
3IQTDQHE 


interruot 


SIOTDONE:  ;  Re 

tore 

regist 

er.?  . 

MOVE 

i.L 

(AT)+.D0-D7/A0-A5 

RTE 

SECTION 

3 

:  Section  3  is  unitialized  static  data 

cAR.xBuff  er : 

DS.B 

ESCCBUFL  ;  ESCC  Port  A  receive  buffer. 

cATxBuff er : 

DS.B 

ESCCBUFL  :  ESCC  Port  B  transmit  buffer. 

cBRxBuffer: 

DS.B 

ESCCBUFL  ;  ESCC  Port  A  receive  buffer. 

cBTxBuffer : 

DS.B 

ESCC3UFL  ;  ESCC  Port  B  transmit  buffer. 

cpARxBuf f :  • 

DS.L 

1 

Pointer  to  port  A  Rx  buffer. 

nARxHead: 

DS.L 

1 

Port  A  head  index. 

nARxTail : 

DS.L 

1 

Port  A  tail  index. 

cpATxBuf f : 

DS.L 

1 

Pointer  to  port  A  Rx  buffer. 

nATxHead: 

DS.L 

1 

Port  A  head  index. 

nATxTail : 

DS.L 

1 

Port  A  tail  index. 

bATxXoff : 

DS.B 

1 

Port  A  transmit  disable  boolean  flag. 

byAReqXonXof f : 

DS.B 

1 

Port  A  transmit  XON/XOFF  request  flag 

cpBRxBuf f : 

DS.L 

1 

Pointer  to  port  A  Rx  buffer. 

nBRxHead : 

DS.L 

1 

Port  A  head  index. 

nBRxTail : 

DS.L 

1 

Port  A  tail  index. 

cpBTxBuff : 

DS.L 

I 

Pointer  to  port  A  Rx  buffer. 

nBTxHead : 

DS.L 

1 

Port  A  head  index. 

nBTxTail : 

DS.L 

1 

Pore  A  tail  index. 

bBTxXoff : 

DS.B 

1 

Port  A  transmit  disable  boolean  flag. 

byBReqXonXof  f : 

DS.B 

l 

Port  A  transmit  XON/XOFF  request  flag 

SECTION  0 

;  Sect 

ion  0  is  the  code  section. 

storage . 


;  SCSI  INTERRUPT  HAHOLER 

I 

;  Description: 

;  This  intormpt  sei  vices  ihc  SCSI  port. 
SCSI.INTEKRIU'T: 
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;  Save  regie tors. 

HOVEM.L  ’dO-D7/AO-A(3,-(A7) 

;  Pre-load  address  registers. 
HOVEA.L  /fBITREV,AO 
HOVEA.L  i?SCSI.PORT,Al 


:  Read  SCSI  Status  Register  to  determine  cause  of  interrupt. 


SCSIPAUSI: 


•SCSIABEND: 


CLR.L 

DO 

MOVE.B 

(SCS.STATS,A1),D0 

;  Get  status 

HOVE.B 

Uo,DO.ya)  ,D0 

;  Perform  bit  reversal. 

MOVE.B 

DO ,bySCSIStatus 

;  Shadow  status  to  status  location. 

HOVE.B 

D0,D1 

;  Save  status  value. 

;  Check 

for  reset  interrupt. 

AND.B 

/f$F0,D0 

;  Check  status  field  of  SCSI 

status. 

EEQ.B 

SCSIDONE 

;  If  ze^ro  then  we’re  done. 

;  Check 

for  a  commcvnd  completed  successfully  interrupt. 

AND.B 

#f$10,D0 

;  Check  status  field  of  SCSI 

status . 

BME.B 

SCSIPAUSI 

BRA.B 

SCSIDONE 

;  This  shouldn’t  occur  so  we 

’re  done. 

:  Check 

for  a  command  pause/abort  interrupt. 

MOVE.B 

D1,D0 

;  Get  status. 

AND.B 

??S20,D0 

;  Check  status  field  of  SCSI 

status. 

BNE.B 

SCSIABEND 

BRA.B 

SCSIDONE 

;  That’s  all  folks. 

;  Check 

for  a  premature  termination  interrupt. 

MOVE.B 

D1,D0 

;  Get  status. 

AND.B 

S$40,D0 

BNE.B 

SCSISERVICE 

BRA.B 

SCSIDONE 

•;  That’s  all  folks. 

SCSISERVICE: 

:  An  event  on  the  SCSI  bus  requires  service. 

:  The  possibilities  are  CODE  in  {$2, $3, $4, $73* . 


1$: 


MOVE.B  D1,D0 

AMD.B  ?;$r,DO 

CHP.B  ::$2,D0 

BNE.B  SCSSERVSELA 

;  Get  data  of  interest. 
CLR.L  DO 

HOVE . B  {SCS.SRCID , A1 ) , DO 

HOVE.B  (A0,D0.W+1) ,D0 

HOVE.B  D0,Dl 

AND.B  »S7,DO 

HOVE.B  DO,bySCSSourceID 

AND.B  «$S,00 

BME.B  1$ 

CLR.B  bSCSSIDValid 

BRA  .  B  'j:I: 

MOVE.B  .bSCSSIDValid 


Get  status. 

Mask  status,  leave  code. 
Check  for  sel  w/o  ATN. 
No. 

Yes . 


Read  Source  ID  Register. 

Perform  bit  reversal. 

Copy  contents  of  SRCID  register. 
Mask  out  SRCID  value. 

Save  SRCID  value. 

Mask  out  SRCID  valid  bit. 

Write  false  to  valid  flag. 

Write  true  to  valid  flag. 


;  Issue  rSHK  COUNT  Register  and  Issue  RECEIVE  COMMAND  command. 
;  ProT'^ar'':  receive  a  six  byte  coiuniand. 

MOVE.B  //TO.  (^:CS_TRCR2,A1)  ;  Write  zero  to  MSB. 

HDVE.B  //to  ,  (SCS_TRCR1 ,  Al)  ;  Write  zero  to  2nd  MSB. 

HOVE.B  ■  (SCS/PRCRO,  Al)  ;  Write  6  to  LSB. 
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MOVE.B  ##SBIC.RCCMD,(SCS^CMDRG,A1)  ;  Issue  RCV  CMD  command. 

BRA.B  SCSIDONE  ;  That^s  all  folks. 

SCSSERVSELA : 

CMP.B  ^#$3,00  :  Check  for  sel  w/  ATN. 

EHE.B  SCSSERVATW  ;  Ko. 

.  ;  Yes,  but  this  isn't  supported. 

;  This  only  happens  when  an  identify  message  is  being  transmitted. 


BRA.B  SCSIDOUE 

SCSSERVATN : 

CMP.B  #$4,D0  ' 

ENE.B  SCSSERVUHK 


BRA.B  SCSIDOME 
SCSSERVUNK : 

NO? 

SCSIDONE:  ;  Restore  registers. 

HOYEH.L  (A7)+,D0-D7/A0-A6 


That's  all  folks. 


Check  for  ATN  assertion. 
No. 

Yes . 

That’s  all  folks. 

Must  be  WFSR  paused. 


RTE 


SECTION  3 

bySCSSourcelD:  DS . B  1 
bSCSSIDValid:  DS . B  1 
SCSCmdFrame :  DS.B  12 

bySCSIStatus :  DS.B  1 

bySCSIPhase  DS . B  1 
SECTION  0 


Section  3  is  unitialized  static  data  storage. 

SCSI  Source  ID  value. 

SCSI  Source  ID  valid  flag. 

SCSI  Command  frame  storage. 

SCSI  Status  register  value. 

SCSI  Phase  state  variable. 

Section  0  is  the  code  section. 


;  BUS  ERROR  INTERRUPT  HANDLER 
;  Description: 

;  This  interrupt  services  the  bus  error  exception. 

BERR_INTERRU?T: 

A’DDQ.L  #1 ,  (dwBusErrorCount)  ;  Inc.  bus  error  counter. 

RTE 

SECTION  3  ;  Section  3  is  unitialized  static  data  storage. 

dwBusErrorCount :  DS.L  1  ;  Bus  error  counter. 

SECTION  0  ;  Section  0  is  the  code  section. 


;  IPL  LEVEL  SET  ROUTINE 
;  void  SetIPL(int  iIPL) 

t 

;  Description: 

;  This  routine  sets  the  processor  IPL  level.  This  routine  uses  the 
;  C  language  calling  structure. 

;  The  prototype  for  this  function  is  void  SetlPL(int); 

SetIPL  PROC 

;  Save  data  registers. 

MOVEH.L  DO-Dl ,“(A7) 

:  C  r*  t-  s  t  Cl  t  u  n  r  g  i.  s  t  e*  r  . 

MOVE  r:R,i)o” 

:  Mask  on  I  fPl.  Iv  it;-:. 

AIMVW  /r:t:P:kKK.I)u 
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:  Get  IPL  level. 

MOVE.L  (12,A7),D1 
AND.W  #$700, D1 

;  Mask  IPL  level  into  SR. 
EOR.W  D1,D0 

;  Put  SR  back. 

MOVE  DO, SR 

:  Restore  data  registers. 
MOVEM.L  (A7)+,D0-D1 
:  Return  from  the  procedure. 
RTS 


CONSTANTS 


END 


D.IO  PO.S'l' iiiid  Iniii;ili-/..r,h,n:  l’O.STI.\M'l'..M{)S 

;  Description:  POST  for  Enckplcine  Firmware 

9  — 

;  Major  Rev:  0 
;  Minor  Rev:  0 
;  Date:  5/29/92 

9 

;  Author:  Jon  Hellott 

;  High  Speed  Digital  Architecture  Laboratory 
;  University  of  Florida 
;  405  CSE  Building 
;  Gainesville,  FL  32611 


;  IDENTIFICATIOM  DIVISION 

POSTINIT  IDNT  0,1  ;  Module  POSTINIT,  Major  rev=0,  Minor  rev=0 

SECTION  0  :  Place  in  section  zero  (ROM) 


ENVIRONMENT  DIVISION 


OPT  NOHEX, P=68030 


EXTERNAL  REFERENCES 


XREF  .CENTRY  ;  Startup  module  reference. 
XREF  dwEusErrorCount  :  Bus  error  counter. 


EXPORTS 


XDEF  BITREV 
XDEF  POSTINIT 


;  EQUATES 


Byte  wide  bit-reversal  table. 
POST  entry  point. 


;  Base  local  ItMi  of  RAH. 
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RAM.BASE  EQU 


$100000 


InvestiGATOR  I/O  port  location  and  mi: 
INCLUDE  IMVESTIO^niC 


constants . 


MACRO  DEFINITIONS 


STRING  PRINT  MACRO 
Description : 

The  following  macro  takes  as  its  argument  the  address  of  a  text  string 
and  causes  the  text  string  to  be  printed  to  serial  port  A. 


Load  the  base  address  of  the  message. 
Load  the  SIO  control  port  A  addr  ->  A4. 
Load  the  SIO  data  port  A  addr  ->  A5. 

Load  the  location  of  the  bit  rev.  table. 

Read  status  word  and  check  for  Tx  buffer 
empty  status. 

Mask  out  Tx  buffer  empty  bit. 

If  not  empty  then  wait. 

Initialize  register. 

Read  byte. 

C  e  c  k  f  o  r  1 1 1  c  h a r  a  c  .  r . 

Null  character. 

Non-null,  so  write  to  SCC. 

Loop  back . . . 


;  REGISTER  USAGE: 

A3,A4,AS,A6,D7 

HPRINTH 

MACRO 

MOVEA.L 

t\l,A3 

MOVEA .  L 

SSI0A_CTRL,A4 

HOVEA .  L 

SSI0A_DATA,AS 

MOVEA .  L 

£3:TREV,A6 

HPRM1\Q: 

MOVE.  3 

SRO , (A4) 

MOVE.B 

(A4),D7 

AMDI.B 

S$20,D7 

BEQ.B 

.  HPRH1\(? 

CLR.L 

D7 

HOVE.E 

(A3)+,D7 

CMP  .  B 

;^0.D7 

BEQ.B 

KPRH2\® 

MOVE.B 

(A6,D7),(A5) 

BRA 

H?RH1\« 

EPRM2\Q: 

ENDH 

;  ADDRESS 

REGISTER 

PRINT  MACRO 

;  Descrip' 

tion : 

The  following  macro  takes  as  its  argument  an  address  register  and 
prints  the  contents  of  that  address  register. 

This  macro  uses  nc  transient  storage  and  does  not  save  registers  used. 
A6, A5,A4,A3,D7,D6,D5 


REGISTER  USAGE: 
ARPRNM 


ARPRNM\0: 


MACRO 

HOVE.L 

\1,D7 

MOVEA.L 

«H£XTABLE.A3 

MOVEA.L 

/;SIQA_CTRL,A4 

MOVEA.L 

i#SI0A^DATA,A5 

MOVEA.L 

J?BITREV,A($ 

MOVE.B 

U3,DS 

MOVE.B 

#fR0,  (A4) 

MOVE.B 

(A4) ,D6 

ANDI.B 

»Z2Q,De 

BEQ.B 

ARPRNH\<3 

ROL.L 

,D7 

HOVE.L 

D7  ,  DG 

AMDI  .L 

ntF.DG 

MOVE.B 

rA3,D6) ,D6 

MOVE.B 

fAG.DG) ,(A5) 

Save  address  register  in  question. 

Load  the  ASCII  hex  table  addr  ->  A3, 

Load  the  SIO  control  port  A  addr  ->  A4. 
Load  the  SIO  data  port  A  addr  ->  A5. 

Load  the  location  of  the  bit  rev.  table. 
Number  of  bytes  to  print. 

Read  status  word  and  check  for  Tx  buffer 
empty  status. 

Mask  out  Tx  buffer  empty  bit. 

If  not  empty  then  wait. 

PvOtate  MS  nibble  to  LS  nibble  position. 
Copy  rotated  data. 

Mask  data  down  to  hex  table  offset. 

Get  ASCII  value  of  value. 

Write  SCC. 
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SUBQ.B  #1,D5  :  Decrement  loop  counter. 

BHE.B  ARPRHM\iD  ;  Loop  back. 

ENDM  ■ 


;  DATA  PRINT  MACRO 

t 

;  Description: 

;  The  following  macro  takes  zis  its  argument  a  valid  longword  argument  and 
;  prints  the  value. 

;  This  macro  uses  no  transient  storage  and  does  not  save  registers  used. 

;  REGISTER  USAGE:  A6,A5,A4,A3,D7,D6,D5 
DPRNM  MACRO 

MOVE.L  \1,D7  ;  Save  address  register  in  question. 

MOVEA.L  tHEXTABLE,A3  ;  Load  the  ASCII  hex  table  addr  ->  A3. 
MOVEA.L  #SI0A_CTRL, A4  ;  Load  the  SIO  control  port  A  addr  ->  A4. 
MOVEA.L  #SI0A^DATA,A5  ;  Load  the  SIO  data  port  A  addr  ->  AS. 
MOVEA.L  i?BITREV,A6  ;  Load  the  location  of  the  bit  rev.  table. 
HOVE.B  “3,D5  ;  Number  of  bytes  to  print. 

DPRNM\<5:  MOVE.B  iJR0,(A4)  ;  Read  status  word  and  check  for  Tx  buffer 

HOVE.B  (A4KD6  ;  empty  status. 

AWDI.B  t$20,D6  ;  Mask  out  Tx  buffer  empty  bit. 

BEQ.B  DPRWH\<5  ;  If  not  empty  then  wait. 

ROL.L  t4,D7  ;  Rotate  MS  nibble  to  LS  nibble  position. 

MOVE.L  D7,D6  ;  Copy  rotated  data. 

ANDI.L  n$F,D6  ;  Mask  data  down  to  hex  table  offset. 

MOVE.B  .  (A3,D6),D6  ;  Get  ASCII  value  of  value. 

HOVE.B  (A6,D6),(A5)  ;  Write  SCC. 

SUBQ.B  tl,D5  ;  Decrement  loop  counter. 

BNE.B  DPRHHXQ  Loop  back. 

ENDH 


MARCH-UP  READ  MACRO 
Description: 

The  following  macro  performs  a  march  up  read  of  RAM.  It  takes  as  its 
argument  the  value  which  is  expected  to  be  found  in  memory. 

This  macro  uses  no  transient  storage  and  does  not  save  registers  used. 
REGISTER  USAGE:  A0,D2.D1,D0 


MUPRM 

MACRO 

MOVE.L 

\1,D0 

Expected  value. 

MOVEA.L 

#RAM_BASE, AO 

Locid  memory  base  address  to  AO 

MOVE.L 

»$40000,D1 

Load  loop  counter. 

MUPRM\®: 

MOVE.L 

(AO) ,D2 

Get  the  data  at  (AO) . 

CMP.L 

D2,D0 

Check  data. 

BEQ.W 

HUPRHlNQ 

Data  is  o.k. 

HPRINTM 

STR4 

Not  ok,  print  fault  message. 

ARPRNM 

AO 

HPRINTM 

5TR5 

DPRNM 

D2 

HPRINTM 

STR6 

MUPRM1\®: 

ADDQ.L 

»4 .  AO 

;  Increment  address  counter. 

SUBQ .  L 

»l,Dl 

;  Decrement  countdown  counter. 

BNE.W 

IIUPRMX® 

ENDM 
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MARCH-UP  WRITE  MACRO 
Description: 

The  following  macro  performs  a  march  up  write  of  RAM.  It  takes  as  its 
cLTgument  the  value  which  is  to  be  written  to  memory. 

This  macro  uses  no  transient  storage  and  does  not  save  registers  used. 
REGISTER  USAGE:  A0,D1,D0 


MUPWM 

MACRO 

MOVE.L 

\1.D0 

Value  to  write. 

MOVEA.L 

tRAM.BASE,AO 

Load  memory  base  address  to  AO 

HOVE.L 

#340000, D1 

Load  loop  counter. 

MUPWM\a : 

MOVE.L 

D0,(A0)+ 

Write  data  to  (AO). 

SUBQ.L 

#1  .D1 

Decrement  countdown  counter. 

BNE.B 

ENDM 

HUPWHX® 

MARCH-UP  READ, WRITE  MACRO 
Description : 

The  following  macro  performs  a  march  up  read  then  write  of  RAM.  It  takes 
as  its  arguments  the  value  which  e.^pected  to  be  in  memory  and  the 
value  which  is  to  be  written  to  memory. 

This  macro  uses  no  transient  storage  and  does  not  save  registers  used. 
REGISTER  USAGE:  AO , DO , D 1 , D2 , D3 


MUPRWM  MACRO 

HOVE.L 

\1  ,D0 

Expected  value. 

MOVE.L 

\2,D1 

New  value. 

MOVE.L 

#340000,03 

Count -down  counter. 

MOVEA.L 

#RAH  BASE, AO 

Load  memory  base  address  to  AO. 

MUPRWMXQ;  HOVE.L 

s 

5:* 

O 

O 

r.) 

Get  the  data  at  (AO). 

CHP.L 

D2,D0 

Compare  the  data  with  the  expected  value 

BEQ.W 

MUPRWM 1\® 

OK  . 

HPRIMTH 

ST.R4 

Not  ok,  print  fault  message. 

ARPRNM 

AO 

KPRINTM 

STR5 

DPRNM 

D2 

HPRINTH 

STR5 

MUPRWM l\a: 

MOVE.L 

D1,(A0)+  ; 

Place  new  value  in  memory. 

SUBQ.L 

#1,D3  ; 

Decrement  countdown  counter. 

BNE.W 

HUPRWMX®  : 

Loop-back . 

ENDM 

;  MARCH-DOWN  READ 

MACRO 

> 

;  Description: 

;  The  following  macro  perforins  a  march  down  read  of  RAM.  It  takes  as  its 

;  argument  the  exp 

ected  value  which  is  to  be  read  from  memory. 

;  This  macro  uses 

no  transient  storage  and  does  not  save  registers  used. 

;  REGISTER  USAGE: 

A0,D2,D1,D0 

MDRM  MACRO 

MOVE.L 

\1,D0  ; 

Place  e.xpected  value  in  DO, 

MOVE.L 

»1:3FFFF,D1  ; 

Load  initial  longword  index  into  Dl. 

MOVEA.L 

/?RAM_BASE.A0  ; 

Load  memory  base  address  to  AO. 

MDRM\a:  HOVE.L 

(A0,'D1.L*4),D2 

;  Get  value  from  memory. 

CHP.L 

02,1)0  ; 

Compare  the  data  with  the  expected  value. 

.  Iv 

HORM  l\i')  ; 

OK. 

ii.'TlIMTH 

STK2  ; 

Hoc  ok,  print  fault  message. 
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DPRMM  D1 
HPRINTH  SIRS 
DPRMM  D2 
HPRINTH  STR6 
MDRM1\®:  SUBQ.L  #1,D1 
BGE.W  HDRM\® 

ENDM 


;  MARCH-DOWN  READ, WRITE  MACRO 
» 

;  Description: 

;  The  following  macro  performs  a  march  down  read  then  write  of  RAM.  It  takes 
;  as  its  arguments  the  value  which  is  expected  and  the  new  value. 

;  This  macro  uses  no  transient  storage  and  does  not  save  registers  used. 

;  REGISTER  USAGE:  AC,D3,D2.D1 ,D0 

MDRWM  MACRO  .  ^ 

MOVE.L  \1,D0  Place  expected  value  in  DO. 

KOVE.L  \2,D3  ;  Place  new  value  in  D3. 

MOVE.L  if$3FFFF,Dl  ;  Load  initial  longword  index  into  Dl. 

MOVEA.L  ;?RAf'LBASE,AO  ;  Load  memory  base  address  to  AO. 

MDRWMXO:  MOVE.L  (A0,D1 .L*4) ,D2  ;  Get  value  from  memory. 

CHP.L  D2,D0  ;  Compare  the  value  with  expected. 

BEQ.W  HDRWMlXO  ;  OK. 

HPRINTH  STR3  ,*  Hot  ok,  print  fault  message. 

DPRNM  Dl 

HPRINTH  STR5 
DPRNM  D2 

HPRINTH  STR6 

MDRUMlXO:  MOVE.L  D3 , (AO ,Di . L*4)  ;  Write  new  value. 

SUBQ.L  tl,Dl  ;  Decrement  index/loop  counter. 

BGE.W  HDRWMXO  ;  Loop  back. 

ENDM 


MAIN  PROGRAM 


;  The  following  code  segment  performs  these  initialization  tasks: 

;  1.  Initialize  ESCC  for  POST  messages. 

;  2.  Initialize  and  test  DRAM. 

;  a.  Perform  DRAM  charge  pump  initialization 
;  b.  Perform  DRAM  tests. 

;  3.  Enable  the  cache  memory 

;  4.  Initialize  ESCC  driver  and  interrupt  handler. 

;  5.  Initialize  SBIC  driver  and  interrupt  handler. 

;  6.  Initialize  misc.  interrupt  service  routines. 

;  7.  Enable  interrupts 
;  8.  Execute  startup  code. 

SECTION  0  ;  Section  0  is  the  code  segment. 

POSTINIT: 

» 

;  Initialize  serial  port. 

SIOINIT:  HOVEA.L  «SI0A_DATA , AO 
HCIVEA  .  I.  «SIOA_CTRL ,  A 1 

MilVE.B  AM) 

HOVF.B  ) 


Load  S.IOA  data  port  address  into  AO. 
Load  SIOA  control  port  address  into  Al. 

Write  $C0  to  WR9  to  perform  hardware 


;  Decrement  index/loop  counter. 
;  Loop  back. 


re.cec . 
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HOVE.B 

#R'1,(A1) 
#$22, (Al) 

;  Write  $44  to  WR4  to  enable  16x  clock, 

:  one  stop  bit,  and  no  parity. 

HOVE.B 

HOVE.B 

#R3, (Al) 
#$3,(A1) 

;  V/rite  $C0  to  set  Rx  8  data  bits, 

;  Rx  disabled. 

HOVE.B 

HOVE.B 

#RS,(A1) 

#$6,(A1) 

;  Write  $60  to  set  Tx  8  data  bits, 

;  DTR,RTS,Tx  off. 

HOVE.B 

HOVE.B 

#R9, (Al) 
#$0,(A1) 

;  Write  $0  to  WR9  to  disable  interrupts. 

HOVE.B 

HOVE.B 

#R10, (Al) 
#$0.(A1) 

;  Write  $0  to  WRIO  for  NRZ  coding. 

HOVE.B 

HOVE.B 

#R11,(A1) 

#$6A,(A1) 

;  Write  $56  so  Tx  &  Rx  =  BRG  output, 

;  TRxC  =  BRG  output. 

HOVE.B 

HOVE.B 

HOVE.B 

HOVE.B 

#R12, (Al) 
#$C2,(A1) 
#R13,(A1) 
#$00, (Al) 

;  Set  baud  rate  LSB  =  $43  for  4800  baud. 

;  Set  baud  rate  MSB  =  $0  for  4800  baud. 

HOVE.B 

HOVE.B 

#R14,(A1) 

#$8,  (Al) 

;  Write  $12  to  WR14  to  set  BRG  in  =  /RTxC, 

;  set  BRG  clk=PCLK,  and  en.  local  loopback 

HOVE.B 

HOVE.B 

#R14,(A1) 

#$C8,(A1) 

;  Write  $13  to  WR14  to  enable  baud  rate 
;  generator. 

HOVE.B 

HOVE.B 

#R3, (Al) 

#$S3 , ( A  1 ) 

;  Write  $C1  to  WRS  to  enable  receiver. 

HOVE.B 

HOVE.B 

#RS, (Al) 
#$S7,(A1) 

;  Write  SEA  to  WRS  to  enable  transmitter, 

;  set  DTR  and  CIS. 

:  IMITIALIZATIOM  OF  PORT  A  DOME. 


;  Print  heading  messjtge... 
HPRIMTM  STRO 

f 

;  Initialize  the  dynamic  RAM. 
SCRAMINIT: 


Print  DRAM  initializing  message... 


HPRINTM  STRl 

HOVE.B  ^?S,DO 
DRAM.INITl: 

MOVEA.L  ;?RAM^BASE,  AO 
MOVE.L  ;#1:40000,D1 
DRAM.INIT2: 

MOVE.L  (A0)+,D2 
SUBQ.L 

BNE  DRAM^INIT2 


Number  of  times  to  read  all  locations. 

Init  RAM  address  base  register. 

Init  count -down  counter. 

Read  the  mem  at  location  pointed  at  by  AO 
Decrement  the  counter. 

Loop  back  for  next  location. 


SUBQ.B  ;?1,D0 
BNE  DRAH.INITl 


Decrement  pump  count. 
Loop  back  if  not  done. 


;  SCRAM  T€:'C. 

SCRAMTST: 

;  Fourth  SCRAM  Tolu 

;  This  test  WLit«:'.  miiciu*;  loiigword  vaLu'iS  to  the  SCRAM  in  ascending  order 
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;  from  zero  to  $3FFFF . 

HPRINTH 

STR23 

;  WRITE 

DATA 

CLR.L 

DO 

Initialize  test  sequence  counter. 

MOVEA.L 

#RAM_BASE,AO 

Initialize  RAM  address  base  register. 

MOVE.L 

#$40000, D1 

Initialize  countdown  counter. 

RAMT4DW: 

MOVE.L 

DO,(AO)+ 

Write  the  data. 

ADDQ.L 

#1,D0 

Increment  the  data  register. 

SUBQ.L 

#1,D1 

Decrement  the  countdown  register. 

BNE.B 

RAMT4DW 

Loop  back. 

:  READ  DATA 

CLR.L 

DO 

Initialize  test  sequence  counter. 

MOVEA .  L 

#fRAH_BASE,AO 

Initialize  RAM  address  base  register 

MOVE.L 

^^$40000,D1 

Initialize  countdown  counter. 

CLR.L 

D2 

Clear  fault  counter. 

RAMT4DR: 

CMP .  L 

(AO) ,D0 

Check  the  data. 

EEQ.W 

RAMT4DX 

O.K. 

ADDQ.L 

J?1,D2 

Increment  fault  counter. 

HPRINTH 

STR4 

Print  fault  message. 

ARPRNM 

AO 

HPRINTH 

STRS 

DPRNH 

(AO) 

HPRINTH 

STR6 

RAMT4DX : 

ADDQ.L 

?i4,A0 

Increment  address  counter. 

ADDQ.L 

?1,D0 

Increment  test  sequence  counter. 

SUBQ .  L 

,D1 

Decrement  the  countdown  register. 

BI-'fL-W 

RAMT4DR 

Loop  back .  . 

;  PRINT 

REPORT 

CHP .  L 

#0,D2 

Check  fault  counter. 

BNE.B 

RAKT4F 

Failed. 

HPRINTH 

STR12 

Passed . 

BRA.B 

RAHT4E 

RAMT4F: 

HPRINTH 

STR24 

;  Print  failure  message. 

RAMT4E: 

:  Sixth 

SCRAM  Test 

:  This  test  looks 

for  a  stuck-at  fault  on  the  address  multiplexer  lines 

;  This  test  is  accomplished  by  the  following  algorithm: 

$ 

:  for 

i:=2  to  19 

;  Memory C0]:=0 

;  Memory  [2 "■!]  : 

=  1 : 

;  if  Memory  [0] 

!=0  then  there  exists  a  fault. 

;  end; 

RAMT6 : 

HPRINTH 

STR26 

MOVE.L 

#0,D1 

Load  zero  into  D1 . 

MOVE . L 

#$FFFFFFFF,D2 

Load  all  ones  into  D2. 

MOVE.L 

#1.D3 

Initial  4*2‘'i  value. 

MOVE.L 

#13, DO 

Number  of  times  to  loop. 

MOVEA.L 

#RAH_BASE.A0 

Load  RAM  base  address  into  AO. 

RAMT6L: 

MOVE.L 

D1,(A0) 

Memory [0] : =0 . 

MOVE.L 

D2, (A0,D3.L«4) 

;  Memory  [2" i] :  =  1 . 

LEA  .  L 

(A0.D3.I.*4)  ,A1 

;  Loading  effective  address  into  Al. 

HPRINTH 

r.TR37 

ARPRNW 

A1 

;  Print  effective  address  value. 

HPRIMTM 

STR3S 

CHP .  L 

(AO) .D1 

;  Check  for  fault. 

BKQ .  R 

RAHTOOK 

;  Passed. 
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HPRINTM 

STR27 

Failed. 

BRA.B 

RAMT6C 

Continue. 

RAMT60K : 

HPRINTM 

STR23 

Passed. 

RAMT6C: 

LSL.L 

#1,D3 

Shift  address 

offset . 

(++i). 

ANDI.L 

#$3FFFF,D3 

:  Make  sure  this 

offset 

is  not 

SUBQ.L 

i?l,D0 

:  Decrement  loop 

counter 

BNE.W 

RAMT6L 

:  Loop  back. 

;  Seventh  SCRAM  Test 

;  This  test  performs  the  March  C  test  described  in  ACM  Computing  Surveys, 

;  vol.  22,  no.  1. 

» 

;  The  March  C  test  is  described  by  the  following  sequence  of  march  elements 
;  *(r,wl);  ^(r,wO);  “(r);  v(r,wl);  v(r,wO);  v(r) 

;  The  memory  is  initialized  by  a  “(wO)  march. 

RAMT7:  HPRINTM  STR29 

MUPWH  SO  ;  Initialize  by  '“(uO). 

HPRINTM  STR30  ;  Print  Ml  string... 

MUPRWH  ^0,tf$FFFFFFFF  ;  Perform  -‘(rO,wl). 

HPRINTM  STR31  ;  Print  M2  string... 

MUPRWM  #$FFFFFFFF,#0  ;  Perform  ■'(rl,uO).  • 

HPRINTM  STR32  ;  Print  H3  string... 

HUPRH  #0  ;  Perform  "*(r0). 

HPRINTM  STR33  ;  Print  M4  string... 

HDRMM  ?^0,?i$FFFFFFFF  ;  Perform  v(rO,wl) 

HPRINTM  STR34  ;  Print  MS  string... 

MDRWH  i?$FFFFFFFF,??0  ;  Perform  v(rl,wO); 

HPRINTM  STR35  ;  Print  M6  string... 

MDRH  ;  Perform  v(rO). 

f 

;  Infinite  loop. 

> 

BRA  SCRAMTST  ;  Loop-back  for  safety. 

»  ■ 

;  Initialize  miscellaneous  ISRs. 

;  Initialize  bus  error  exception  counter. 

CLR.L  dwBusErrorCount 

Enable  cache  memory. 


Enable  interrupts . 


Goto  startup  code. 

BRA.W  .CENTRY  ;  Goto  C  startup  code  entry  point. 


CONSTANTS 


SECTION  1  ;  Section  1  is  the  text  segment. 

* 

;  String  constants. 

STRO :  DC . B  '  rnvec tiCATOR  POST/Iuit  version  0.2^,10,13 

DC.B  Mon  M.aiott,  5/27/921*/ \  10 , 13 , 10 , 13 
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DC.B 

’High  Spe«d  Digital  Architecture  Laboratory 

DC.B 

’University  of  Florida’ , 10 , 13 

DC.B 

’Gainesville,  FL  32611 ’ .10,13,10,13 

DC.B 

’InvestiGATOR  Initializing  and  Testing — ', 

STRl: 

DC.B 

’SCRAM  Initializing. ,10,13,0 

STR3: 

DC.B 

’  +**FAULT:  LI(’,0 

STR4: 

DC.B 

’  ♦■♦♦FAULT:  0(’,0 

STRS: 

■  DC.B 

’)=’  ,0 

STR6: 

DC.B 

’.’,10,13,0 

STRl  2 

DC.B 

■’  Test  passed.  ’ 

DC.B 

10,13,0 

STR23 

DC.B 

’SCRAM  Test  #4. . . > , 10, 13 ,0 

STR24 

DC.B 

»  ♦♦♦FAULT:  SCRAM  Test  #4  Failed. ‘ , 10,13,0 

STR25 

DC.B 

'SCRAM  Test  #5 . . . ’ , 10 , 13 ,0 

STR26 

DC.B 

'SCRAM  Test  #6:  Address  MUX  SAF  Test — ’,10 

STR27 

DC.B 

'♦♦♦FAULT:  SAF. ' , 10. 13 ,0 

STR28 

DC.B 

'Passed. ’ .10, 13,0 

STR37 

DC.B 

'  (',0 

STR38 

DC.B 

'  )  :  ' ,  0 

STR29 

DC.B 

'SCRAM  Test  #7:  March  C  Test ...', 10 , 13,0 

STR30 

DC.B 

'  Ml. ..’ ,10,13,0 

STR31 

DC.B 

'  H2. ..’ ,10,13,0 

STR32 

DC.B 

’  H3. ,10,13.0 

SfR33 

DC.B 

’  H4. ..’ ,10,13,0 

STRS  4 

DC.B 

'  MS. . . ’ ,10, 13,0 

STR35 

DC.B 

'  M6. ..’ ,10,13,0 

STR36 

DC.B 

’♦♦♦FAULT’ ,10,13,0 

:  ASCII  HEXADECIMAL  TABLE 

HEXTABLE:  DC.B 

’01234S6789ABCDEF’ 

:  BIT 

REVERSAL 

TABLE. 

BITREV:  DC.B 

$00 , $S0 , $40 , SCO . $20 , $ AO , $60 , $E0 

DC.B 

$10,$90,$5O,$DO,,$3O,$B0.$70.$F0 

DC.B 

$08  ,  $38  ,  $48 ,  $C8 .  $28 ,  $  AS ,  $68 ,  $E8 

DC.B 

$18,$9S,$58,$D8,$38,$B8,$78,$F8 

DC.B 

$04 , $84 , $44 , $C4 , $24 , $ A4 , $64 , $E4 

DC.B 

$ 14 , $94 , $54 . $D4 , $34 . $B4 , $74 , $F4 

DC.B 

$0C , $3C , $4C , $CC , $2C , $AC , $6C , $EC 

DC.B 

$1C.$9C.$5C,$DC.$3C,$BC,$7C,$FC 

DC.B 

$02 ,  $32 ,  $42 ,  $C2 ,  $22 ,  $A2 ,  $62  ,.$E2 

DC.B 

$ 12 , $92 . $52 , $D2 , $32 , $B2 , $72 , $F2 

DC.B 

$0A , S8 A , $4A , $CA , $2A , $ A A , $6 A , $EA 

DC.B 

$1A,$9A,$5A,$DA,$3A,$BA,$7A,$FA 

DC.B 

$06 , $36 , $46 , $C6, $26 ,$A6 ,$66 ,$E6 

DC.B 

$16,$96,$56,$D6,$36,$B6,$76,$F6 

DC.B 

$0E , $3E , $4E . $CE , $2E , $ AE , $6E , SEE 

DC.B 

$1E,$9E,$SE,$PE.$3E.$BE,$7E,$FE 

DC.B 

■$01,$31.$41,$C1,$21,$A1,$61,$E1 

DC.B 

$11,$91,$51,$D1.$31,$B1,$71,$F1 

DC.B 

$09 , $39 , $49 , $C9 , $29 , $ A9 , $69 , $E9 

DC.B 

$19,$99.$59,$D9,$39.$B9,$79,$F9 

DC.B 

$05 , $85 , $45 , $C5 , $25 ,$ AS ,$65 , $E5 

DC.B 

$1S,$95,$55,$D5,$3S,$B5,$75,$F5 

DC.B 

$00 , $3D , $4D . $CD , $2D , $ AD ,$SD , $ED 

DC.B 

$1D,$9D,$5D,$DD,$3D,$BD,$7D,$FD  . 

DC.B 

$03 , $33 , $43 , $C3 , $23 , $ A3 , $63 , $E3 

DC.B 

$13,$93,$53.$D3,$33,$B3,$73,$F3 

DC.B 

$0B,$3E ,$4B,$CB.$2B.$AB,$6B,$EB 

DC.B 

$1!}.$0F3,$5B,$DB.$3B,$BB,$7B,$FB 

DC.B 

$07  , $37 , $47 , $C7 . $27 .$ A7 , $67 , $E7 
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DC.E  $17,$97,$57,$D7,$37,$B7,$77,$F7 
DC.B  $0F,$3F,!I:4F,$CF,$2F.$AF.$6F,$EF 
DC.B  $1F.$9F,$5F,$DF.$3F,$EF,$7F,$FF 

EWD 


D.ll  C  SUirUi],  Co.li-:  S'rAin’liP..M(i8 


*  * 

*  Copyright  (C)  1987  by  * 

*  Production  Languages  Corporation  * 

*  ^  * 

*  P.O.  Box  109  * 

*  Weatherford,  Texas  76086-0109  * 

*  (817)  599-8363 

* 


:(c:^:fr:^:4e**********^  *****'**  f  *  +  ♦  t «  :»c  ^  t  *♦*♦**♦  + t  *♦♦*♦****♦*♦♦  **  +  *  + 

STARTUP  IDNT  0,0 
SECTION  0 

INCLUDE  . . \conf igXconf ig 

* 

*  Generic  C  Program  Start-up  code 

* 


XDRF  .GENTRY 
XDHF  .maxfiles 
XDEF  .file 
XDEF  .,s_errno 
XDEF  errho 
XDEF  .stksize 
XDEF  .hpsize 
XDEF  .argc 
XDEF  .argv 
XDEF  .tmpstk 
XDEF  .endcode 
XDEF  .next_rand' 

XREF  .stack 
XREF  STACKSZ 
XREF  .hptop 
XREF  .hpbot 
XREF  .ailocp 
XREF  exit 
XREF  main 
XREF  abort 
XREF  -:init 

IFNE  CHDLINE 
XREF  .u_scancmd 
ENDC 

IFNE  SIGNAL 
XDEF  .sigvect 
ENDC 

XREF  .s_sigiiiit 

IFNE  FILEIO 
XREF  .s  f sin  it 
ENDC 


♦  This  label  must  be  the  lowest  address  in  the 


*  * 
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♦  code/data  segment  for  the  automatic  updating 

♦  of  position  independant  initializers  to  work. 

.GENTRY: 

IFNE  POSIND  &  (M68000  I  H63010) 

♦ 

*  Get  the  base  address. 

*  This  code  assumes  that  .GENTRY  is  the 

*  lowest  address  of  the  program. 

*  The  register  used  here  MUST  match  the 

*  base  register  used  in  G0NFIG.M68. 

LEA.L  .GENTRY, AS  ;  Get  base  address 

ENDC 

;  The  following  section  added  by  J.  Mellott,  2/9/92SUN, 

;  This  performs  dynamic  RAM  initialization.  The  TC514258 
;  Static  Column  RAM  requires  eight  refresh  cycles  before 
;  the  memory  may  be  used  reliably.  These  refresh  cycles  may 
;  be  forced  by  performing  reads.  This  block  of  code  ensures 
;  that  the  memory  is  initialized  before  it  is  used. 

;  Note  that  the  following  code  segment  has  the  amount  of  SCRAM 
;  and  its  location  hard-wired  in  place. 

MOVE.B  ^f8,D0 

DRAM_INIT1 : 

MOVEA.L  iJ$100000,AO 

MOVE.L  #$40000,01 

DRAM_INIT2: 

MOVE.L  (A0)+,D2 

SUB.L  #1,D1 

BNE  DRAM^INIT2 

SUB.L  #1,D0 

BNE  DRAM^INITl 


SCRAM  initialization  finished. 


GETADDR 

EMDREGS,A7  ; 

Get  end  address  of  .INIREGS 

MQVEM.L 

D0-D7/A0-A6,-(A7)  ; 

Save  away  register  contents 

IFNE 

M68881 

FMOVE.L 

ENDC 

JfSFCOO.FPCR  : 

Initialize  68881 

♦ 

Clear  out  bss  (unitialized)  data  area 

GETADDR 

.bssbeg,A0 

Get  address  beginning 

GETADDR 

.bssend,Al 

Get  address  of  end 

clrbss : 

CMPA.L 

A0,A1 

.Done? 

BEQ.B 

bssdone 

Yes,  jump 

CLR.B 

(A0)  + 

Clear  memory 

BRA.B 

clrbss 

Go  again 

bssdone : 

♦ 

Update  position  independant  initializers 

GETADDR 

.GENTRY, A 1 

Get  address  of  segment 

CMPA.L 

#0,A1 

Is  program  loaded  at  0? 

BEQ.B 

initdone 

Yes,  skip  initialization 

GETADDR 

. beginit , AO 

start  of  initializer  list 

ADDQ 

#?4,A0 

Skip  DC.L  0 

GETADDR 

.  endcode  ,  A3 

Get  address  of  end 

doinit : 


Number  of  times  to  read  all  locations. 

Init  RAH  address  base  register. 

Init  count-down  counter. 

Read  the  mem  at  location  pointed  at  by  AO. 
Decrement  the  counter. 

Loop  back  for  next  location. 

Decrement  pump  count. 

Loop ^ back  if  not  done. 
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CMPA.L 

A3, AO 

Done? 

BEq.B 

initdone 

Yes,  jump 

MOVEA.L 

(AO)+,A2 

Get  list  entry 

ADDA.L 

A1,A2  ■ 

Add  in  base  for  pointer 

MOVE.L 

(A2) ,DO 

Get  address  to  update 

ADD.L 

Al.DO 

Add  in  base 

MOVE.L 

D0,(A2) 

Put  back  address 

BRA.B 

•doinit 

Go  again 

initdone : 

* 

Initialize  RTL  modifiable  variables 

*  The  MAXFILE  and  STACKSZ  references  in  the  following  code  were  changed 
*,to  immediate  operands  2/16/92  * — JDM 


GETADDR 

.maxf iles ,A0 

*  Maximum  open  files 

MOVE.L 

#HAXFILE,(AO) 

* 

GETADDR 

.hpsize.AO 

*  Size  of  heap  segments 

MOVE.L 

#STACKSZ,(AO) 

* 

GETADDR 

.stksize,AO 

*  Size  of  stack  segment 

MOVE.L 

JfSTACKSZ,  (AO) 

* 

GETADDR 

.next_raad,  AO 

*  Random  number  seed 

MOVE . L 

#l,(AO) 

♦ 

* 

Set  up  temporary  stack  and  call  _u_scajicind() 

GETADDR 

. tmpstk, A7 

;  Set  up  temporary  stack 

IFKE 

CMDLIWE 

GETADDR 

.argv,AO 

MOVE.L 

AO,-(SP)  ; 

;  Pass  address  of  _argv 

GETADDR 

.argc,AC 

MOVE.L 

AO,-(SP)  ; 

:  Pass  address  of  _argc 

GETADDR 

•cmdline.AO 

MOVE.L 

AO,-(SP)  ; 

:  Pass  address  of  .cmdline 

CALL 

.u^scancmd , A2  ; 

:  Call  scancmndO 

ADDA.L 

^?12,SP 

ENDC 

* 

Call  _init()  so  that 

it  can  update  _stksize  and 

♦ 

^maxfiles  if  desired 

GETADDR 

.•argv ,  AO 

MOVE.L 

AO,-(SP)  ; 

Pass  address  of  _argv 

GETMEM 

.argc,DO,L,Al 

MOVE.L 

D0,-(SP)  ; 

Pass  _argc 

CALL 

. init , A2 

;  call  _init 

ADDQ.L 

#8,SP 

* 

Set  up  real  stack 

GETADDR 

. stack, A7  ; 

Address  of  stack  segment 

GETADDR 

. stkaddr , AO 

MOVE.L 

A7,(A0)  ; 

Store  top  of  stack 

* 

physical  address  of  segment  is  in  AO,  length  is  in 

GETADDR 

.allocp, AO 

CLR.L 

(AO)  : 

Clear  heap  list  pointer 

GETADDR 

•hpboc.AO 

MOVE.L 

A7,(A0)  : 

Set  bottom  of  heap 

GETADDR 

■hptop, AO 

MOVE.L 

A7,(A0)  ; 

Set  top  of  heap 

ADDA.L 

i;STACKSZ.A7  ; 

Calc  hi  address  of  stack  seg 

* 

Initialize  file  system 

IFNE  ] 

FILF.IO  . 
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CALL 

.s_fsinit,A2 

ENDC 

* 

Initialize  Signal  processor 

IFNE 

SIGNAL 

CALL 

.s^siginit ,A2 

ENDC 

IFEQ 

SIGNAL 

* 

vector  all  signals  to 

a  dumy,  routine 

KOVEQ.L 

#NUMSIG-1,D0 

GETADDR 

.sigvect,AO 

GETADDR 

defhndlr , A1 

LL; 

MOVE.L 

A1,(A0)+ 

DBF 

DO.LL 

ENDC 

♦ 

Call  main 

GETADDR 

.argv,A0 

MOVE.L 

AO,-(SP) 

;  Pass  address  of  .argv 

GETMEM 

.argc,DO,L, A1 

MOVE.L 

D0,-(SP) 

;  Pass  _argc 

CALL 

main, A2 

;  Call  inain(argc,argv) 

ADDQ.L 

US,S? 

CLR.L 

“(SP) 

;  exit(O) 

CALL 

exit , A2 

IFEQ 

SIGNAL 

* 

Default  handler  for  s 

ignals 

* 

def hndlr : 

RTS 

ENDC 

♦*♦*★★**** ♦***♦♦1' ♦♦**♦***♦******♦******* ************************ 
* 

★  Data  area 

♦ 

+  *  ***★♦♦♦  +  ♦♦♦**  +  *♦************  ************************** 
SECTION  2 

*  Register  contents  at  startup 


. iniregs : 


DS.B 

4 

DO 

DS.B 

4 

D1 

DS.B 

4 

D2 

DS.B 

4 

D3 

DS.B 

4 

D4 

DS.B 

4 

D5 

DS.B 

4 

D6 

DS.B 

4 

D7 

DS.B 

4 

AO 

DS.B 

4 

A1 

DS.B 

4 

A2 

DS.B 

4 

A3 

DS.B 

4 

A4 

DS.B 

4 

AS 

DS.B 

ENDREGS 

4 

AG 

DS.L  TSTKSZ/4  ;  Temp  stack  for  _init() 

.tmpstk: 

*  Storage  for  comnuaiKl  lino 
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IFNE  CMDLINE 
cmdline  DC.B  WAXCMDLN 
ENDC 


*  Variables  for  C  runtime  library 


.maxfiles  DS.L  1 

.file  DS.L  1 
errno : 

.s.errno  DS.L  1 
.axgc  DS.L  1 
.argv  DS.L  MAXARG 
.hpsize  DS.L  1 
.stksize  DS.L  1 
.stkaddr  DS.L  1 
.sigvect  DS.L  NUMSIG 
.next^rand  DS.L  1 


Maximum  open  files 
Pointer  to  file  control 

Global  error  number 

GLobal  argc 

Global  argv 

Size  of  heap  segments 

Size  of  stack  segment 

Address  of  stack  segment 

Random  number  seed 


SECTION  3 

*  beginning  of  bss  (uninitialized)  data  area 


.bssbeg  DC.L  0 
SECTION  4 


*  end  of  bss  (uninitialized)  data  area 

.bssend  DC.L  0 


SECTION  14 

♦  beginning  of  position  independant  initializer  list 

.beginit  DC.L  0 
SECTION  IS 


*  end  of  code  segment 

.endcode  DC.L  0 
END 
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AppcMidiN  I-' 

GAUSS  MAdllM-:  1M((;(:UAMMAU1J*;  LOCIC  DMVICK  LISTINGS 

Tills  appi'M'lix  «M!i:;iiiis  lisi!ii;is  \\>i  lli<'  Gauss  machine  controller’s  PLDs. 
Thcs('  IM.Ds  usrd  1  iisi  n jci  iwns  IVuin  I  he  microsequencer,  and  in¬ 

terface' ‘zl  tie  iK'iWfN-n  iii.'  I  u  \c>i  |{  i  A  i  0  L  and  1  lu*  con  l.rel  h'r. 


F.l 


L\L  !1si 


lii:^ 


F.1.1  PAi.Cl.UDS 

TITLE  GAUSS  HACHIME  IllSTRUCTIGN  DECCDER  1 

PATTERN  A 

REVISION  1.0 

AUTHOR  JOM  MELLOTT 

COMPANY  KSDAL 

DATE  2/23/92 


CHIP 

DECODER 

PALCE16VS 

1 

CLK 

riiJ  U  sexili  a  L  lOilS  —  —  —  —  —  —  — " 

COMBINATORIAL 

CLOCK 

PIN 

2.  .9 

INST [i . . Sj 

COMBxNA : ORIAL 

INPUT 

PIN 

10 

GND 

GROUND 

PIN 

12 

ARITHMODE 

REGISTERED 

OUTPUT 

PIN 

13 

/MRUE 

REGISTERED 

OUTPUT 

PIN 

14 

/MROE 

REGISTERED 

OUTPUT 

PIN 

15  ' 

/y.ncE 

REGISTERED 

OUTPUT 

PIN 

16 

/XBEN 

REGISTERED 

OUTPUT 

PIN 

17 

/  Y  P.  EH 

REGISTERED 

OUTPUT 

PIN 

19 

/  /.  r  i-H 

REGISTERED 

OUTPUT 

PIN 

20 

vcc 

SUPPLY 

STRING  NOP  ’/rHST[  l]  */TNST[2l  c/TNSTCS]  cTNST[4]  ^/INST[5]  ♦/INSTCG]  ^/INST[7]*/INSTC8]  ’ 

EQUATIONS 
ARITHMODE  GH!-; 

MR WE  =  GHO 
MROE  =  GHD 
XBOE  -  GND 
XBEN  =  GIIU 
YBEN  =  Gh\U 
XFEN  =  GI1.U 
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F.1.2  I’Al.f '-.’.I’DS 

TITLE  GAUSS  HACH  I rUSTKUCTIOH  DECOL'EH.  2 

PATTERN  A 

REVISION  1.0 

AUTHOR  JON  HELLOTT 

COMPANY  HSDAL 

DATE  2/23/92 


CHIP 

DECODER 

palce:6 

PIN 

1 

CLK 

PIN 

2.  .9 

INSTLl 

PIN 

10 

GHD 

PIN 

12 

/ROE 

PIN 

13 

/?REH 

PIN 

14 

/CLI: 

PIN 

15 

/RESnv: 

PIN 

16 

'KES'HH 

PIN 

17 

/$REM 

PIN 

IS 

/  AR.';;E 

PIN 

19 

/AEEK 

PIN 

20 

VCC 

STRING  NO?  ’/I! 

':3T  [l  j  */ 

- PIN  D-iclarations - 

COME  III  ATORIAL 
CCHBINATORIAL 

REGISTERED 

REGISTERED 

REGISTERED 

REGISTERED 

REGISTERED 

REGISTERED 

REGISTERED 

/IMSTC3]  >/IHST[4]  ^/ISISTCS] 


;  CLOCK 
;  INPUT 
;  GROUND 
;  OUTPUT 
;  OUTPUT 
;  OUTPUT 
;  OUTPUT 
;  OUTPUT 
;  OUTPUT 
;  OUTPUT 
;  OUTPUT 
;  SUPPLY 

/INSTC6]*/INSTC7]*/INSTC8]  » 


EQUATIONS 
ROE  =  GND 
PREN  =  GND 
CLR  =  GND 
RESBWE  =  GND 
RESBRE  =  GMD 
SREN  =  GHD 
ARWE  =  GND 
AREN  =  GND 
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XOW  =  GMD 
XOFLRT  =  GMD 
YIR  =  GND 
YIFLRT  =  GHD 
XIR  =  GND 
XIFLRT  =  GND 
AROE  =  GMD 
XOR  =  GMD 


F.L-I  IWLCLPDS 

TITLE  GAUSS  MACHINE  TnUTRUCTION  DECODER  4 

PATTERN  A 

REVISION  1.0 

AUTHOR  JOM  HELLOTT 

COMPANY  HSDAL 

DATE  2/23/9-j 


CHIP 

DECODER 

PALCE16VS 

PIN 

1 

CL  PC 

COMBINATORIAL 

CLOCK 

PIN 

2 .  .9  • 

IHST[1 . .3] 

COMBINATORIAL 

INPUT 

PIN 

10 

GMD 

GROUND 

PIN 

12 

/YIW 

REGISTERED 

OUTPUT 

PIN 

13 

/xiy 

REGISTERED 

OUTPUT 

PIN 

14 

XTDA 

REGISTERED 

OUTPUT 

PIN 

15 

XTDB 

REGISTERED 

OUTPUT 

PIN 

16 

VECTCr.HODE 

.REGISTERED 

OUTPUT 

PIN 

17 

XI 

REGISTERED 

OUTPUT 

PIN 

18 

X2 

REGISTERED 

OUTPUT 

PIN 

20 

vcc 

SUPPLY 

STRING  NOP  ViNSTClj  v/IliST  [2]  t/I;:ST[3]  ^/INST  [4]  */INST  [5]  ♦/INST  [6]  */INST  [7]  */INST  [8]  ’ 

EQUATIONS 
YIW  =  GND 
Xiy  =  GMD 
XTDA  =  GND 
XTDB  =  GND  . 

VECTO RHODE  =  GND 
XI  =  GND 
X2  =  GND 


F.l.r)  I>A1.(’-)JM)S 

TITLE  GAUSS  MACHINE  ADDRESS  DECODER 

PATTERN  A 

REVISION  1.0 

AUTHOR  JON  HELLOTT 

COMPANY  HSDAL 

DATE  2/23/92 


CHIP 

DECODER 

PAI.CK16V8 

PIN 

1 

CLK 

i  L«i  u€ic^rixciUa.on 

COMBINATORIAL 

PIN 

2 

/ARVGP 

COMBINATORIAL 

PIN 

3 .  .  9 

ADDi:.;  14.  .SJ 

CUMHINATORIAL 

PIN 

10 

GNI 

PIN 

1  I 

.■  i\'.  • 

;!■!;. TOklAl. 

PIN 

19 

/ ‘ i  A*  1 ;  ■ ; *>  1 ' 

<A;MH.  1  MATORIAL 

CLOCK 

INPUT 

INPUT 

GROUND 

INPUT 

OUTPUT 
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PIN  20 


VCC 


SUPPLY 


EQUATIONS 

GAUSSP  =  ARYSP*AS*‘/ADDR[1'4]  ♦/ADDP.[l.?]  *^/AUDR[i: 
/ADDR[9]*/ADDRCSl 


I  +/ADDRC 1 1] */ADDRC10] * 


F.l.G  PAI.r.i.PDS 

TITLE  GAUSS  MACHINE  SC?  ACCESS  CTRL 

PATTERN  A 
REVISION  1.0- 
AUTHOR  JON  MELLOTT 
COMPANY  HSDAL 
DATE  2/23/92 


CHIP 

DECODER 

PALCE 16V; 

PIN 

1 

CLK 

PIN 

2 

/GAUSSP 

PIN 

9 

/ARYNA 

PIN 

10 

GND 

PIN 

12 

/STHRM 

PIN 

19 

/  C  ,*•  ^ 

PIN 

20 

V  c  c 

EQUATIONS 

STERH  :=  GND 
SCPAC  :=  GMD 


PIH  Declarations  - 

COMBINATORIAL  ;  CLOCK 

COHEIMATORIAL  ;  INPUT 

COMBINATORIAL  ;  INPUT 

:  GROUND 

REGISTERED  ;  OUTPUT 

P.EGISTERED  ;  OUTPUT 

;  SUPPLY 


F.1.7  I\\I..(T.iM)S 

TITLE  GAUSS  MACHINE  PORT  ADDRESS  DECODER 

PATTERN  A 

REVISION  1..0 

AUTHOR  JON  MELLOTT 

COMPANY  HSDAL 

DATE  2/23/92 


CHIP 

DECODER 

PALCEieVS 

PIN 

1 

CLK 

COMBINATORIAL 

CLOCK 

PIN 

2 

/ARYMA 

COMBINATORIAL 

INPUT 

PIN 

4.  .9 

ADDRC7. .2] 

COMBINATORIAL 

INPUT 

PIN 

10 

GKD 

GROUND 

PIN 

14 

EA2 

REGISTERED 

OUTPUT 

PIN 

15 

HA  1 

REGISTERED 

OUTPUT 

PIN 

16 

BAO 

REGISTERED 

OUTPUT 

PIN 

17 

PA2 

REGISTERED 

OUTPUT 

PIN 

18 

PA  1 

REGISTERED 

OUTPUT 

PIN 

19 

A  0 

REGISTERED 

OUTPUT 

PIN 

20 

VCC 

SUPPLY 

EQUATIONS 

BA2=GND 

BA1=GMD 

BAO=GMD 

PA2=GND 

PA1=GND 

PAO=GMD 
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F.l.S  rAK(’s.|*l)S 

TITLE  GAUSS  HACiilHr:  DATA  BUFFER  CTRLl 

PATTERN  A 

REVISION  1.0 

AUTHOR  JON  HELLOTT 

COMPANY  HSDAL 

DATE  2/23/92 

CHIP  DECODER  PALCEIUVS 


- PIN  Declcirat ions - 

PIN 

1 

CLK 

COMBINATORIAL 

CLOCK 

PIN 

2 

/ARVflA 

COMBINATORIAL 

INPUT 

PIN 

3 

/GAUSS P 

COHBIHATORIAL 

INPUT 

PIN 

4.  .6 

ADDRC7. .5j 

COMBINATORIAL 

INPUT 

PIN 

7 

RF 

COMBINATORIAL 

INPUT 

PIN 

10 

GND 

GROUND 

PIN 

16 

/SCrOER; 

REGISTERED 

OUTPUT 

PIN 

17 

/SCPGER2 

REGISTERED 

OUTPUT 

PIN 

18 

/SCPGER3 

REGISTERED 

OUTPUT 

PIN 

19 

/SC.^CER- 

REGISTERED 

OUTPUT 

PIN 

20 

7CC 

SUPPLY 

EQUATIONS 

SCP0£R1=GND 

SCP0ER2=GWD 

SCP0ER3=GMD 

SCP0ER4=GND 


TITLE  GAUSS  MACHINE  DATA  BUFFER  CTRL! 

PATTERN  A 

REVISION  1.0 

AUTHOR  JON  HELLOTT 

COMPANY  HSDAL 

DATE  2/23/92 


CHIP 

DECODER 

r  t\  z,  i  \l o 

PIN 

1 

CLK 

- il'J  U  SClaxat  ions  - 

COMBINATORIAL 

CLOCK 

PIN 

2 

/ARYNA 

COMBINATORIAL 

INPUT 

PIN 

/G A USSR 

COMBINATORIAL 

INPUT 

PIN 

4.  .6 

ADDS [7. .6] 

COMBINATORIAL 

INPUT 

PIN 

7 

RF 

COMBINATORIAL 

INPUT 

PIN 

10 

GWD 

GROUND 

PIN 

12 

/SCP0ER5 

REGISTERED 

OUTPUT 

PIN 

13 

/SCPOERe 

REGISTERED 

OUTPUT 

PIN 

14 

/SCPOETl 

REGISTERED 

OUTPUT 

PIN 

15 

/SCF^FETC 

REGISTERED 

OUTPUT 

PIN 

16 

"SC  PC)  FT  3 

REGISTERED 

OUTPUT 

PIN 

17 

/SCPLET'l 

REGISTERED 

OUTPUT 

PIN 

IS 

/SCIN'FTS 

REGISTERED 

OUTPUT 

PIN 

19 

.'SCPCFTU 

REGISTERED 

OUTPUT 

PIN 

20 

VCG 

SUPPLY 

EQUATIONS 

SCPOERS=GMD 

SCPOERG=GHD 

SCP0£T1=GMD 

SCPOETL^GIH) 

SCPQET3=GMD 

SCPOET^=GMP 
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SCP0ET5=GMD 

SCP0ET6=GMD 
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Apix'iulix  ( 


GAUSS  MACIilNI-:  Miriax  'ODl-: 


This  ;ij>|)<Muli\  lisis  ;hr  ( Innss  in;iciiiiu-  microcode.  This  microcode  is  written 
for  M !f|-od<’\irrs’  ASM  I  lx  nssrmhlcr.  This  microcode  assem¬ 

bler  ('mils  ohjcci  , r^r  AMD's  AnrJDiM.i  lx/l‘')X  fa n lily  of  EPROM  betsed  microse- 
quciieci-s.  ’The  ilsiiii-  in  SrrAh.ii  (I.i  is  Dk-  sunre('  \\)V  i.hc  microcode.  Section  G.2 
desci'ilu^s  lln*  I  ni'-r*  M’.  n  •  a  in  i  !!ii‘'!'‘*ii!sl  inii'i  icais. 


G.L  (ianss  Maeiiiin'  M  n  l.isiiiiy; 

DEVICE  (CPL154) 

"Gauss  Machine  Conrrcller  Hicrocequencer*’ 

"J.  Mellotf 
"2/24/92" 

"High  Speed  Digi:.::l  Archirecnire  Laboratory" 

"University  of  rlor i da" 

DEFINE 

"Test  inputs" 

SCPACCESS  =  T7 

"On  t  pu  t  con  t  r o 1  bit  s  ’  ‘ 

STANDBY  =  100:?H 
SCPSTDBV  ^  OftV. 

BEGIN 

"standby  and  wait  for  something  to  happen..." 

STDEY:  STANDBY.  IF  (SCPACCESS)  THEN  GOTO  PL(SCPACC)  ELSE  WAIT; 

"The  SCSI  control  processor  is  accessing  the  array  so  standby..." 

SCPACC:  SCPSl'D.BY.*  fi*  (IICT  SCPACCESS)  THEM  GOTO  PL(STDBY)  ELSE  WAIT; 

END. 


G.2  (  laii.ss  M  .M'ijiiic  M  il  l .  M  l  n  |c  D« -.a-fi  j  >1  ion 
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ApjX'iulix  II 

MACMNTOSII  AIM  SOI'IMM-;  r'o.ni-: 


M  liis  cl  I )( *! !» 1 1 V  cwnicsins  lor  iIk'  \l<i.c*iiit.osh/Cifiuss  ni3*cliinc  API 


II. 1  MAMM-S.il 

/*  types. h 

#ifndef _ types.;; 

#define _ types.!; 

#define  IWTTYPE  Ion.;  integer  data  type  */ 

#define  FLQATTY:'?.  dor.Me  floating-point  data  type  */ 

#define  SATHODE  !  /♦^  defined  for  saturated  fixed-point  arithmetic  ♦/ 

#define  NOER.^.  0  i*  OK  reiiu’n  code  for  int  function  */ 

/*  flags  for  the  tvre  field  i:i  a  matrix  struct  */ 

#define  CMPLX  Cx! 

#def ine  REAL  Cx2 

/♦  Data  structure  for  matrices 

/*  CMPLX  or  REAL  */ 

/■^  dimensions  */ 

/’  real  part  ♦/ 

/+  imaginary  part  */ 


/t  CHPLX  or  REAL  ♦/ 

/♦  dimensions  */ 

integer  real  part  ♦/ 
/-•  integer  imag  part  ♦/ 

}  int.matrix; 

/♦  Labview  data  structure  '»'/ 
typedef  struct  \ 
long  dimSizes[2]; 
double  arg.l[]; 

}  TDl; 

typedef  TDl  *TD:!!dl  ; 

#endif 


typedef  struct  -C 
int  type; 
int  rows,  cols: 
FLOATTYPE  ’^re : 
FLOATTYPE  *im: 

>  matrix; 
typedef  struct  { 
int  type;* 
int  rows,  cols: 
INTTYPE  »re: 
INTTYPE  ♦im; 


li.2  CONWn 

/+  conv.h  ♦/ 

#ifnder  ..COriV^H 
#define  ...C‘OMV.1! 

void  ill i t.conv i,  int  wl-n.  ml  I’bil;:/; 
INTTYIM-:  f  L>at  2:’ M.in\*:TVPK  f); 
FLOATTYPE  1’ i  \  12  !*!••■»  i  m  liTTVl’K  i); 
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/*  Convert:^  :i  f  I  oat  i  ni*:  mati'ix  to  an  into^^er  matrix  */ 

int^matrix  ^mfloatlMM  x^tdOnatr  ix  -►mar.): 

/*  Convert:.:  an  intei^^r  matrix  to  a  floating-point  matrix  ♦/ 
matrix  ♦mf ixed2f loat ( iat.matr ix  +mat): 
void  set.fnameCchar  *fnai::o)  ; 

INTTYPE  checkdMTTYPE  r-:cult;; 

#define  max(a.  b)  Ui  >  b)  ?  a  :  b  / -^  maximum  of  a  and  b  */ 
#define  min(a.  b)  Ca  <  b)  ''  a  :  b  minimum  of  a  and  b  */ 
#endif  /+  __CCM\dH  ^/ 


H.:}  CONV.C 

/*  conv.c 

#include  <stui;>.h> 

# include  <math.h> 

#include  <strlitg.]:> 

#include  '*  types  .  h*' 

#include  "ut il .  h’* 

#include  ’’couv.h” 

#incliide  "matrix.h” 

#include  *' in t .matrix  .  h'‘ 
static  long  wordlen: 
static  long  fracbits; 
static  long  maxint : 

static  char  f unc.name  [2S5]  =  current  function  name,  used  to  report  errors  */ 

static  int  err. count  =0:  number  of  errors  in  current  function  */ 

void  init.conv ( int  wlen,  int  fbits) 

/♦  int  wlen  :%ordlength  ♦/ 

/♦  int  fbits  binary  no int 

i 

if  (wordlen  <=  32)  /♦  max  wordlength  =  32  bits  ♦/ 

uordlen  =  v;len: 
else 

wordlen  =32: 

if  (fbits  <=  wordlen.'^  f  *  binary  point  should  be  <  wordlength  */ 

fracbits  =  fbits; 
else 

fracbits  =  v:ordlen: 

maxint  =  (loni:;)  •‘'IdexpCl  .0 ,  :-;ordlen)  -  2);  /+  maximal  absolute  value  ♦/ 

> 

INTTYPE  floar.2f  ix^^dCrLOATTYPE  f) 

■C 

long  tmpl,  tmp2; 
int  exp; 
double  mant: 

mant  =  frexptf,  ?::oxp^  :  /+  split  :  into  mantissa  and  exponent  ♦/ 

tmpl  =  (loii.iO  Idexpviiianc .  exp  +  fracbits);  /*  mant  *  2"(exp  +  fracbits)  ♦/ 
tmp2  =  tmpl  M  ma;<int: 
if  (tmpl  !=  tmp2; 

{ 

error ('* f  1  oa ?  2f  i  xed  :  Over  f loi:" ) ;  report  overflow  ♦/ 

} 

return  ( ( TtflTYPE ;  T:mp2  )  : 

> 

FLOATTYPE  f  i  ••••i::  f  Loa  i  {  [  liTTYPE  i. ) 

{ 

double  rnant; 

mant  =  ('doubl*-)  i;  /♦  cast  i  to  double  *! 

mant  /-**  l‘i*-:<p(  {  .  0  .  :  ar  !•  i  r ;  /♦  divide  by  2“  (fracbits)  ♦/ 

return (  C 

> 
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/*  Converts  o  nont.  mat  rix  to  an  integer  matrix  */ 

int  matrix  ♦mfloatr^i' ixf:  l(  m-' t »  ix  ♦mat) 

{ 

int  i ; 

int. matrix  *tinp; 
if  (mat  !=  HULL) 

if  ((tmp  =  int.iK!v;.t-!mp(mat->rows ,  mat->cols,  mat->type))  !=  NULL) 
^  for  (i  =  0;  i  <  ^J^/.E(tmp):  i  +  +  ) 

tnip-> r e  [  i  1  --  F  loatCf  iXct<l(uiat“>re  [i]  )  ; 

•if  (tmp->typo  ==  CHPLX) 

for  (i  =  0;  i  <  SIZEt-mp);  i++) 

tmp-'>ini[i]  =  floatZi ixecl(mat->imCi]  ) ; 

> 

> 

}  . 

return  (tmp); 

/*  Converts  an  integer  matrix  to  a  :loat ing-point  matrix  */ 
matrix  *mf ixed2float(int_matrix  ’♦mat) 

{ 

int  i; 


matrix  ♦tmp; 
if  (mat  !=  HULL) 

^  if  f(tmp  =  n=K_T.e:nn!niri;->ro;:-,  n!at->cols.  mat->type))  !=  MULL) 

i 

for  (i  =  0;  i  <  SIZF.( cr.p  ■ ;  i++) 

>if g  r X j  -  f  1  xS’d'ZT  i-oar  Ci3  ) » 

if  (t!np->type  ==  Ci-iPLX  > 

for  (i  =  0;  i  <  SIZE'- cnp) ;  i++) 

tmp->ir.i  [ij  =  f  ixeclZiloat  (,mar->ini[i]  ) ; 

> 

} 

> 

return  (tmp); 

> 

void  set_fname(char  »fnair.e) 

err_count  =0; 
strcpy(func  name,  fname) ; 

} 

INTTYPE  check (IKTTYPE  rasolt) 

if  ((result  :■  max  int  I!  result  <  -ntaxinc)  &k  err.count  ==  0) 

error (strcat  ( f uiic  _name  ,  "  :  ov erf lo'*/ underflow . " ) ) ; 
err.count++ ; 

return(resul t  %  maxint); 

} 


11.1  IN’l'M.X  l  IMX.ll 

/  +  *  *  ♦  it  ♦  f  ■>  ♦  ♦  ♦  Hit  .  ma !.  !  i  .  I;  ‘  / 

/♦  Contains  .I-clai  aM'-n::  !*•»:  I'Si M‘ i x  .  ♦/ 

#ifndef  i m  .  in. it  :  :  :<  !• 

#def  inc  in;  .mai  i  i  h 
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/*  iiit  int_ciTipl:'_pro;not‘:''  :  ri:c  ♦’Ci,  iiic^matr  ix  *b) 

description : 

Promotes^  if  iuicec::ri i  y ,  t:;^-  '/poraiui;'  a  aiui  b  to  complex  matrices,  that  is, 
if  either  u  or  b  is  compl'rx  then  both  a  and  b  are  converted  to  complex  matrices 
arguments : 

int. matrix  ^a,  ♦b  =  matrices  to  be  promoted 
returns : 

int  =  0  if  successful 

“1  if  malloc  failed 
usage : 

res  =  int_cmplx_promor o^a ,  b  );  //  complex  promotes  a  and  b,  OK  if  res  ==  0 
see  also: 
int_op_check ( ) 

int  int_cmplx_promot.e(inr-_m.:itrix  ^a,  iut^matrix  *b) ; 

/*  int  int.op.chockf  iiit  ix  int,inatri:<  +b) 

description : 

Check  field  type  and  dimension:-:.  First  a  and  b  are  complex  promoted  by 
iiit_cmplx_promote(  ;  .  Motur:::-:  COMP  if  a  aiid  b  have  the  same  dimensions. 

Returns  COM?  l^SCAL  if  either  a  or  b  is  a  scalar.  In  addition,  if  a  and  b 
are  complex ,  CHPLX  is  uP.ed  r  o  thr?  returned  value  otherwise  CMPLX  is  ORed  to 
the  returned  value.  Thus.  ::  type  =  int ^op_check(a , b) ,  then  (type  k  CMPLX)  will 
be  true  if  either  a  or  b  i.s  complex,  (type  k  RH.AL)  will  be  true  if  both  a  and 
b  are  real,  (type  t  -OHP;  will  be  true  if  dimensions  match  and  if  a  or  be  is 
a  scalar,  (type  h  SCA L)  will  be  true  if  a  or  b  is  a  scalar, 
arguments : 

int  .matrix  +a,  ♦'b  =  matricerc  to  be  checked 
returns : 

int  =  whose  bits  are  set  accordini*;  to  the  description  above, 
usage :  ^ 

type  =  int.op.checki'a,  b) :  //  checks  dimensions  of  a,  b.  Bits  will  be  set  in  type 
//  according  to  the  de3crir>rion  above 
see  also: 

int.cmplx.promoteC ) .  int.mu: _check() 
note : 

int.op. check'  J  is  used  r-v  int.addO,  int  omul(),  int  pdiv() 

int  int_op.check(.  int.matri:*:  ^a,  int. matrix  ♦b)  ; 

/*  int  int.mul.check( int_matri:c  +a,  int. matrix  *b) 
description: 

Check  field  type  and  dimensions.  First  a  and  b  are  complex  promoted  by 
iB.t_cmplx. promote () .  Returns  COHP  if  a  and  b  have  the  same  dimensions. 

Returns  COM?  I  SCAL  if  either  a  or  b  is  a  scalar.  In  addition,  if  a  and  b 
are  complex,  CHPhX  is  ORed  to  the  returned  value  otherwise  CMPLX  is  ORed  to 
the  returned  value.  Thus,  if  type  =  int.op.check(a , b) ,  then  (type  k  CMPLX)  will 
be  true  if  either  a  or  b  is  complex,  (type  k  REAL)  will  be  true  if  both  a  and 
b  are  real,  (typr  *  COMP)  will  be  true  if  dimensions  match  and  if  a  or  be  is 
a  scalar,  (type  ,TCAL)  be  tni-r  if  a  or  b  is  a  scalar, 

arguments : 

int. matrix  ♦■a.  »b  marrices  to  be  checked 
returns : 

int  whose  bits  are  set  according  to  the  description  above 
usage: 

type  =  int.iuul.clieckla .  //  ch-jcks  dimensions  of  a,  b.  Bits  will  be  set  in  type 

//  accordin|>  to  the  dc:'c riiu. ion  alcove 
see  also: 

int.cmplx.promotoO  .  i  nt  ..op_chr.-ck (  ) 
note: 

in  c .mu  1  .  c  h oc k  (  )  i ::  tt  u :.-d  1> v  i  n  t  _  -lu  I  (  ) 

*/ 

int  int. ritul  .ch»-ck  f  lilt  n  X  •  a  ,  iir.^jiua.  r  i.x  Mj); 

/  +  + f  f  4;  t  t  V  ^  >•;’  mat  rice::  +  ♦  +  f  f  f  ♦ 

/♦  int. mat  :  i  ;  n  r  r  :  i :  luf.  :  owr. ,  lut  cols,  int  type) 

descrij-.t  ioEi : 
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Allocates  memory  Jfoi  a  v;itU  dimen:;ion  rows  and  cols  and  of  type  type. 

Note  that  it  i:'"  t!’.o  nr.e:’::  :  ibil it y  to  free  this  matrix.  Use  int_iieff_temp() 

to  get  a  temporary  matii:<  ^whicii  will  be  freed  by  kill_temp_list () 

or  close^GMO). 
eirgnments: 

int  rows,  cols  dimension;;  of  matrix  to  be  allocated 
int  type  type  of  matrix,  CKPLX  for  a  complex  matrix  and  REAL  for  a 
real  matrix 

returns:  •  ,  .  ,  «»Tr  r  ^  ^ 

int^matrix  *  matrix  of  tlie  rectuested  size  and  type.  NULL  if  out  of  memory, 

usage: 

mat  =  int_new_matrix(3,  S,  CHPLX);  //  Allocate  memory  for  a  3x5  complex  matrix 
see  also :  , 

int_copy_matrix( )  .  int_now  ,tensp( ) ,  inc.copy^tempC } ,  int_kill_matrixU  » 
kill.temp.lisc ( ) 

It^is  the  user's  responsibility  to  free  any  matrix  that  has  been  allocated  with 
int  new  mat.ri.x()  Cwitu  lut  .kill.matrixf) ; . 

^ 

int_matrix  ♦int^new^mat  ri.x  t  int  rows,  int  col.s  ,  int  type); 

/*  void  int_kili_matr  ix (  int_matrix  ■<'m) 
description: 

Frees  memory  used  by  m.  Note  that  »:i  should  have  been  allocated  with  iut^new^matrixO 
or  int_copy.matrix() . 

If  m  is  a  temporary  matrix,  tiuat  is,  allocated  explicitly  or  implicitly  with 
int_new_temp(*)  or  int.copy^tempC ) .  then  kill^temp.list ()  should  be  used  instead  of 

int„kill_matrix( ) . 
arguments: 

int  ^matrix  ’►m  Matrix  to  be  freed,  must  have  been  allocated  with  int„new_matrix() 
or  int_copy_matrix( ) 
returns : 
nothing 
usage : 

int.kill.matr ixf A ) ;  //  Free  memory  allocated  for  A 

see  also:  /v  . 

int_copy_matrix( )  ,  int^new_te;r.p( )  ,  int_copy_te.m.p( ) ,  int.new^matrixC;  ,  kill^temp.listU 
note:  .  .  ... 

m  must  have  been  allocated  explicitly  or  implicitly  x^ith  int_new_matrxxC) 

or  int_copy_matri:<(') 

*/ 

void  int_kill_matri:<(  int  ..matrix  ♦m) ; 

/*  int_matrix  *int_copy_matrix(  ir.t.matrix  *source) 
description: 

Returns  a.  copy  of  the  matrix  source.  The  copy  is  allocated  with  int_new_matrix() . 

Note  that  it*  is  the  user's  responsibility  to  free  this  matrix.  Use  int..copy_temp() 
to  get  a  temporary  niatrix  (wh.ich  will  be  freed  by  kill_temp_list () 

or  close.GMO). 
axguments: 

int.matrix  source  .matrix  to  be  copied 
returns : 

int_matrix  copy  of  sourc«.  NULL  if  out  of  memory, 
usage : 

new  =  int_copy_;natri:<  (old ; :  //  copy  the  matrix  old  to  the  matrix  new 

see  also :  i •  /\ 

int.kill..niatr  ixO  .  inc.new.. tempC )  ,  iut..copy..temp( ) ,  int.new..matrix()  ,  kill.temp.list C) 
note: 

It  is  the  user's  recponr. ibil ity  to  free  any  matrix  that  has  been  allocated  with 
int^copy.mat rix( )  (wiih  in t.kill_ma trix( ) ) . 

*/ 

int_matrix  ♦  int. .copy  „mat  ri  >:(  int. nuatrix  ♦source); 

/*  int_marriy.  *iut  ii-w.,  r -mrd  i  I'.r  iwwr ,  int  cols,  int  type) 
description: 

Allocates  V  f'.-r  .1  y  ma.riMX  wit!',  d i.'tiension  rows  and  cols  and 

of  typ<r  tyj-M-. 

Note  chat  it  ir.  r.h-:  i  b  i  1 1  ly  to  free  chic  matrix.  To  free  ALL 

temporary  ni  it  i  i-  *-::,  u;:-  k  »  i  I  t  tU!!;-  or  clo;:e_GH(). 
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arguments: 

int  rows,  cols  ri  i  on::  of  matrix  to  be  allocated 

int  type  type  of  mat. li:-:.  CIII'LX  for  a  complex  matrix  and  REAL  for  a 

real  matri:< 
returns : 

int_matrix  ♦  matri:*:  of  tlio  reciuosted  size  and  type.  NULL  if  out  of  memory, 
usage: 

mat  =  int_nev;_ tempt,3 ,  S,  CMPI./J;//  Allocate  memory  for  a  temporary  3x5  complex  matrix 
see  also: 

int^kill^ma tr i xf )  .  in t.copy .matrix () ,  int_copy_terap( ) ,  int_new_matrix() , 
kill.temp.lis  t  ( ) 

*/ 

int^matrix  in  t.no::..  te::ip(  i  nf.  rows,  int  cols,  int  type); 

/*  int_matri;<  ^  iiu  .copy .r.ompf  i  u t^matr i.x  +30urce) 
description: 

Returns  a  copy  of  the  matrix  source.  The  copy  is  allocated  with  iiit_new_temp() 
cind  therfore,  is  a  temoorrii-y  Miatrix. 

To  free  ALL  temporary  matrice:-.:,  use  kill.temp^list ()  or  close. GM(). 
arguments  : 

int .matrix  ^source  matrix  to  be  copied 
returns : 

int. matrix  »  copy  of  source.  MULL  if  out  of  me.mory. 
usage: 

new  =  int_copy_temp(ol<:i ) ;  //  copy  the  matrix  old  to  the  temporary  matrix  new 

see  also: 

int. kill. matrixf )  ,  int  .copy. ;r<atrix( ) ,  int.new.tempO  ,  int.new.matrixO  , 
kill.temp.l ist ( ) 

*/ 

iiit.matrix  int_copy.temp(  in  t^matrix  ’‘source) 

/*  int.matrix  in: .real  (  int  _::;atri;<  •^'mat) 
description; 

Returns  a  matrix  containing  the  real  part  of  mat 
arguments: 

int.matrix  *:nat  input  rr.atri:-: 
returns :  * 

int.matrix  *•  real  part  of  mat 
usage: 

real.part  =  int.realCcmpIx. matrix) ;  //  real. part  =  Re [cmplx.matrix] 

MATLAB  equivalent: 

»  real.part  =  real Ccmpix. matrix) ; 

*/ 

int.matrix  +int.real(  int.matrix  =^inat); 

/*  int.matrix  » int. imagC int .matrix  ♦mat) 
description: 

Returns  a  matrix  containing  tlie  imaginary  part  of  mat 
arguments : 

int.matrix  ♦mat  input  matri :< 
returns: 

int.matrix  *  imaginary  oart  of  mat 
usage: 

im.part  =  int.imag(cmplx_matrix) ;  //  im.part  =  Im [cmplx.matrix] 

MATLAB  equ i v al en t : 

»  im.part  =  imagf  cmpl  matrix ’)  ; 

*/ 

int.matrix  *•  int.  iriiag(  in  t.mat  ri  x  ♦mac); 

/*  int  int. max. index ( i nt. matrix  ♦mat) 
description : 

Return  index  to  irit.al  oMunfMU-  of  mat 
arguments : 

int.matrix  ♦mat  :;:rnit  m:t'.  ri.x 
returns: 

int  index  lo  th-  •  l-irien!  of  mat 

usage : 

max.i  =  i  n  l  ..max  .  !  X  I  m  a  '  :  •'/  ma;<{mat)  “  mat[inax.ij 
MATLAB  eqnival.-n! 

>>  ma:'.!  ■  find':;!'i*  -  !:-a  x  r';.i  t  ; 
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*/  .  , 

.  int  int.mcix.iiKlox C I u I  ly.  Mnac;; 

/*  int  i n C i n ^  i iv.i e x (  ini;  m o r. r i :c  ^ ina t ) 
description: 

Return  index  to  minimal  olcment  of  mat 
arguments: 

int. matrix  ♦‘mat  input  matrix 

returns :  .  .  ,  ^  *•  *. 

int  index  to  the  minimal  cleruen.^  Ox  mat 

usage:  ^ 

min.i  =  int.min_indc':c(mat )  ;  //  minCmat)  =  mrit  Lniin.iJ 
MATLAB  equivalent: 

»  inin_i  =  findCsat  ==  minUncitC : ))) : 

*/  . 

int  int. min_inde:<  (  int  .matrix  +matK 

/*  int.matrix  *’inr._minus( int. matrix  ♦mat) 

description: 

Negates  element c  ol  mat 
airguments: 

int  .matrix  ♦mat  input  mar.ri:-: 
returns: 

int.matrix  ♦  the  negated  input  matrix 
usage: 

minus.A  =  int.minusC A)  :  //  minus.A  =  -A 
MATLAB  equivalent: 

»  minus.A  =  -A : 

*/ 

int.matrix  +int.!ninus( int.m:itri:c  ▼mat): 

/♦  int.matrix  'int.con j  (int .matri:c  ♦mat) 
description: 

conjugates  elements  of  mat 
arguments: 

int.matrix  ♦mat  input  matrix 

returns :  ,  .  . 

int.matrix  the  conjugated  input  matrix 
usage: 

conj.A  =  int.con j  (. A )  :  //  conj.A  =  -A 
MATLAB  equivalent: 

»  conj  A  =  int_conj(A); 

int.matrix  ♦int. coni  i.  int.matrix  ♦mat); 

/*  int.matrix  » int.adci  v  in t. matrix  ♦a,  int.matrix  ^b) 

description: 

adds  matrices  a  and  b 

arguments: 

int.matrix  ♦a,  b  input  matrices 

returns :  .  . 

int  matrix  *  tlie  sum  of  a  and  b,  MULL  ii  error 

usage: 

sum  =  int .add (a.  b);  //  sum  =  a  >  b 
MATLAB  equivalent: 

»  sum  =  a  +  b: 

*/  .. 
int.matrix  > iiit.ad'!’ t  ri:-:  ♦a,  int.matrix  *b) » 

/*  int.matrix  ♦  in t.i'iaui ( iiiL.matr ix  ♦a»  int.matrix  ♦b) 
description: 

pointwise  multi  pi  ical.  io!i  of  matrices  a  and  b 
arguments: 

Int.matrix  ^a,  b  inpt:*-  matrlce:-: 

int.matri:*:  ♦  fho  po i  :ii  product,  of  a  and  b.  NULL  if  error 
usage: 

pprod  =  int.pmulta.  b;  ;  //  pru  od  -  a  .♦  b 
MATLAB  eqii  ivai  -uit  : 

»  pprod  '  a  .♦  b; 

♦  / 

int  .ma  i  r  i  ♦  iii  t  , :  1  l  i •  m. :  r  i ♦  a  ,  i  n  i  .ma  t  i  x  *  b )  ; 
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/*  int^matrix  ♦  int _inul (  in rix  i nt^mci trix  *b) 

description: 

multiplication  of  matricoc  a  and  b 
arguments: 

int.matrix  b  input  matrices 
returns : 

int .matrix  +  the  product  of  a  and  b,  MULL  if  error 
usage : 

prod  =  int.mulCa,  b);  //  prod  =  a  ♦  b 
MATLAB  equivalent: 

»  prod  =  a  ^  h ; 

*/ 

int. matrix  ^ int_nml(  internal  ri:<  -►a,  int. matrix  *b)  ; 

/*  int. matrix  +  int.appendro;:s (  int.matrix  +a,  int. matrix  *b) 

description : 

appends  b's  rovs  to  a 

arguments : 

int .matrix  .  b  inpur.  matr  i-'o:; 
returns : 

int .matrix  *  [a;  bj  .  HULL,  if  error 
usage : 

c  =  int.appendro:-;3  (a .  b)  ;  //  c  =  [a:  b] 

HATLAB  equivalent: 

»  c  =  Ca;  bj  : 

*/ 

int. matrix  int_anpetidrov:s(  it:  t^niatrix  ’♦■a,  int. matrix  *b) ; 

/*  int. matrix  ♦  int. appendcols  (  int. matrix  *a,  int. matrix 
description : 

appends  b’s  columns  to  a 
arguments : 

int  .matrix  ^a.,  b  input  matrices 
returns: 

int.matrix  +  [a.  b] ,  NULL  if  error 
usage: 

c  =  int.appendcolsi a ,  b) ;  //  c  =  [a,  b] 

MATLAB  equivalent: 

»  c  =  [a,  b]  : 

*/ 

int.matrix  ♦int. appendcolsC int.matrix  int.matrix  ♦b)  ; 


/*  int.matriiv  ♦  int. transpC  int.matrix  ♦mat) 
description: 

transposes  elements  of  mat.  Mote:  does  not  conjugate  elements.  Use  int.benaC) 
for  conjugate  transpose  (hermit ian) . 
arguments : 

int.matrix  >mat  inpui  matrix 
returns : 

int.matrix  *•  the  transoosed  inrut  matrix,  NULL  if  error, 
usage: 


traji.A  =  inr  .transpr  A  ;  //  tran.A  =  A' 

MATLAB  ecjui valent: 

»  A  =  A.’;  X  Mote:  not  . ,  that  is,  int.conjO  is  not  conjugate  transpose 

see  also: 
int.hermC ) 

*/ 

int.matrix  ♦  in  t^tr.an.^.p(  int.matrix  ♦mat): 


/*  int.matri:<  ♦  int.hernd  in t.matrix  ♦mac) 
descri]>tior. : 


conjugate  r  ranspv-i:*  vs  vioments  of  mat,  that  is,  takes  the  hermitian  of  mat. 
arguments : 

int  .ma  t  r  i  x  ♦  lua  t  i  n pu  r.  ma  t  r  t  x 
returns : 

int.matrix  ♦  th^  coujui-at-^  transposed  input  matrix,  NULL  if  error, 
usage: 

tran.A  =  in:  .  i  i  vin.iqd  A  )  ;  ,//  ttan.A  -  A’* 

MATLAB  oc[u  :  va  1  •  n  t  ■ 

»  A  =  A^;  L  that  is  . 


int.hoi'm()  is  conjugate  transpose 
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see  also: 
int  transpC) 

int^matrix  ►inr ..herm(  i x  +mat;; 

/♦  int  matrix  ♦^int„ip*''Iex.roy3(int_inatrix  •^'mat,  int^matrix  *iiid) 
description:  .  .  ^  ^  ^  •  j 

Returns  the  rov;s  of  nian  th.at  are  pointed  out  by  ind.  The  elements  of  ind  are 

used  to  pick  out  roue.  That  is. 

suppose  mat  =  [l  2  3;  *>  v  '** ;  T  3  9]  ,  and  ind  =  [3  1],  then  the  result 

would  be  a  matri:<  of  the  form  [7  3  9;  4  5  6].  This  is  analoguous  to  the  MATLAB 

statement,  mat (ind.  :). 
airguments: 

int_matrix  •►mat  matrix  to  bo  indexed 
intimatrix  +ind  row  indo:<  i:-;;';  matri:< 

intllmatrix  *  the  indexed  input  matrix,  MULL  if  error, 
usage:  ‘  /.  n 

B  =  int_index_rows(mat .  ind;;  //  B  =  niac(ind,  :) 

MATLAB  equivalent: 

»  B  =  mat  (ind,  :.)  • 

int_index_cols O  ,  int_inde:<.rows_cols( ) ,  int_siib_matrix() 

Por  greatest  conve:iie:ice .  use  int-_sub_matr ix( )  for  all  indexing  purposes. 

*/  ^  ,  .  •  •  . 
intimatrix  +int_index_rows ( int_matrix  >uiat,  intimatrix  *inay; 

/*  "intimatrix  -^intiindex.-rolsC  int.matrix  *mat ,  intimatrix  *ind) 
description:  j 

Returns  the  columns  of  mat  that  are  pointed  out  by  ind.  The  elements  of  ind  are 

used  to  pick  out  colu.mns .  That  is. 

suppose  mat  =  [1  2  3:  4  5  S;  7  8  -5] ,  and  ind  =[3  1],  then  the  result 

would  be  a  matrix  of  the  form  [3  2:  6  5:  9  S] .  This  is  analoguous  to  the  MATLAB 

Statement..  mat(:.  ind'. 
arguments: 

int  matrix  ►mat  matri:<  to  be  inde:ced_ 
intimatrix  ►ind  column  indexing  matrix 

intimatriic  ►  the  indexed  input  matrix,  NULL  if  error, 
usage: 

B  —  int  i nd e _ c 0 1  a  ( ma t ,  inc: )  ,  ! i  4j  ••  maL  ( .  ,  ind) 

MATLAB  equivalent: 

»  B  =  mat ( ^ ,  ind) 

see  also:  ,  /v  .  -u  ^  n 

int_index_rows ( ) ,  int_iiidex_rows_cols( ) ,  int_sub_matrixC) 

For^greatest  convenience,  use  iiu._sub_matrix( )  for  all  indexing  purposes. 

♦/ 

intimatrix  ►int.indeXiColsCintimatrix  ►mat,  int_matrix  ♦ind);^  ^  ^ 

/*  int  matrix  ►int  index_rowSiCols (intimatrix  ♦mat,  intimatrix  *india,  intiina'trix  ♦indiO) 

description:  ^  ^  j  ^  v 

Returns  the  rows  and  columns  of  mat  that  are  pointed  out  by  India  and  indib. 

The  elements  of  ind  .a  and  indib  ,  ^  - 

are  used  to  pick  out  rov;s  and.  columns,  respectively.  That  is, 

suppose  mat  =  [l  2  3:  4  5  6;  7  S  9],  and  india  =  C3  l]  ^nd  indib  =  [2], 
then  the  result  would  be  a  matrix  of  the  form  [8;  2]  (that  is,  elements  (3,2) 
and  (1,2)).  This  :::  .nnal ogv.ous  to  the  MATLAB  statement,  matCindia,  indib). 
arguments : 

intimatrix  Miiat  matrix  to  b-e  inue:<ed 
intimatrix  ♦incLa  row  indf:<iiig  matrix 
intimatrix  ♦  iiidiV*  column  iivlexiug  matrix 

return.s:  .  .. 

int_mcitri:<  ♦  ihv  in'i-.-x-l  in.put  MULL  if  error, 

usage: 

B  ”  int  iu'le.'c  i  %'W:‘.  -.ol.  •.  iiiaT  ,  :n'i  a,  i!Kl.,b)  ;  //  B  —  mat  (india,  indib) 

MATLAB  equ  1  v:i  I  i*ni  : 

>>  B  =  mat  (  i  lu!  .,t  ,  i  ivl  1- ' 
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see  also; 

int_index_rows(}  .  inc._  i  !;d“X_cols  ( } »  iiii^sub^matrix  ( ) 
note : 

For  greatest  coavenionco .  ii;;*?  int ^sub^matrix O  for  all  indexing  purposes. 

*/ 

int^matrix  ^int_index_rov;::_,<:oi3 ^  inc^matr  ix  -*^mat,  int^matrix  *ind_a,  int_matr.ix  ♦ind^b) ; 
/♦  int^matrix  *■  int_sub^mal  r  ix ( i nt_matx‘ix  ^inat,  int_matrix  *rows,  int_matrix  *cols) ; 
description: 


Returns  the  ro:;r.  and  coJinr.n:-.  of  mat  Chat  are  pointed  out  by  (the  matrices) 
rows  and  cols. 

The  elements  of  ro:;£  aiud  cols 

are  used  to  pick  out  rows  an-.i  columns,  respectively.  That  is, 
suppose  mat  =  [l  2  3;  4  5  b:  ?  3  9],  and  rows  =  [3.14  1,99]  and  cols  =  [2.1], 
then  the  result  would  be  a  matrix  of  the  form  [8;  2]  (that  is,  elements  (3,2) 
and  (1,2)).  This  is  analcguous  to  the  HATLAB  statement,  mat(rows,  cols). 

To  just  index  rows,  like  MATLAB’s  niat(rows,  :),  set  cols  to  NULL,  Similary, 
to  just  index  columns,  like  MATLAB's  mat(:,  cols),  set  rows  to  NULL.  By  using 
this  scheme  all  indexing  can  be  done  with  int_sub_matrix( ) . 
arguments : 

int.matrix  *mat  matrix  to  indexed 
int_matrix  ♦rows  row  inde:<iiig  matrix 
int^matrix  ^cols  column  in-.U-xing  matrix 
returns ; 

int_matrix  the  iiidexed  infiiv  matrix,  MULL  if  error, 
usage: 


B  =  int_sub_mcitri:-:  (.mar. ,  rows,  cols);  //  B  =  mat  (rows,  cols) 

B  =  int_sub_.matrix  { ma  t .  rc:;s  .  MULL):  //  E  =  mat  (rows,  :) 

B  =  int_sub_matrix  ( mat  .  MULh.  cols):  //  5  =  i:iat(:,  cols) 

MATLAB  equivalent: 

»  B  =  mat (rows,  cols- 

see  also:  " 

int_index_rows ( ) .  inr_ index ^cols () ,  int_index_rows_cols () 

note: 

For  greatest  convenience,  use  int_sub_matrix( )  for  all  indexing  purposes. 

*/ 

int.matrix  in t _ sub_.T.a c r i iiit .matrix  ♦mat,  int.matrix  *rows,  int.matrix  ^cols); 

/*  int.matri:<  inr._a;vs ign(  int.matrix  -Ktarget,  int.matrix  »rows ,  int.matrix  ♦cols,  int.matrix 
description: 

Puts  the  matrix  source  into  a  submatrix  of  target  indicated  by  rows  and  cols. 

That  is,  rows  and  cols  defines  a  submatrix  of  target  (exactly  like  int_sub.matrix() ) 
and  this  siibmatrix  is  overwritten  with  data  from  the  source  matrix.  This  is 
analoguotis  .to  the  MATLAB  statement  target(rows,  cols)  =  source.  Needless  to 
say,  the  submatrix  of  tcirget  and  source  must  be  of  the  some  dimensions. 

For  example,  suppose 
target  =[1234; 


5  6  7  S; 

9  10  11  12]  , 
source  =  [13  14: 

15  16]  , 

rows  =  [3  2]  and  cols  =  [12],  the  resulting  matrix  would  be 


C  1 

2  3 

4; 

15 

16  7 

S: 

13 

14  11 

12  ] . 

If  rows  or 

cols 

IS  [i 

That 

is,  t 

arget  * 

rows 

int. 

assign 

( cargo 

t , 

would  be  C' 

odod  a 

i  n 

argu 

ments : 

int_ 

matrix 

♦  cai'.g 

».!t.  iJl. 

int. 

matrix 

♦  row:-: 

row 

int. 

matrix 

*  c  o  I  n 

•:-d 

int. 

matrix 

♦  :'OU  I 

*  •:  in. 

returns : 

int. 

mat  r  I  .X 

♦  ,  •  1 1  • . 

•  1 

y  '  >  I 

usage : 


this  moans  all  the  rows  and  all  the  columns  of  target, 
source  W'Uild  be  coded  as 

MULL,  souice),  and  similary,  target (rows ,: )  =  source 
:  ign  (' to  rgoi  ,  rows,  MULL,  source). 


bt.:  wriccon  to 
■:<  1  Mg  mat. i  i  x 

.l.ii.t  will  be  written  to 


target . 


lu; 


1 1 
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int  assignftar?'-::’:,  row?,  cols,  .source)  //  t:irget(rows,  cols)  =  source 
intlassignf target,  rows,  NULL,  source)  //  target(;.  cols)  =  source 
iiit_assign( target ,  KULL.  cols,  source)  //  target(roMS,  .)  —  source 

see  also :  . 

iiit_sub_matrix  ( )  int._copy^-on;pv ; 

Does’not  handle  the  case  targoc(:,:)  =  source.  For  this  use 
target  =  int_copy_terap( source) . 

int.matrix  *int_a.tsign(int.inatrix  ♦target,  int.matrix  *rows,  int.matrix  *cols,  int.matrix  ♦sot 
/♦  int  .matrix  ♦int.rangediriTYPE  from.  INTTYPE  step,  INTTYPEto); 

description:  .  .  ......  ...  j.  ^  ^ 

Creates  a  vector  like  MATLAB’c  from: step: to .  It  step  is  0,  tnen  it  is  set  to  l. 

For  example’  int  ran^eTl .  2.  7)  results  in  Cl  3  5  7],  int.rangeO,  5)  results  in 

[3  4  5]." 
arguments : 

INTTYPE  from  start  value 
INTTYPE  step  steo  size 
INTTYPE  to  stop  value 

int,.matrix  *■  vector  wit:i  eleniencs  starting  at  from  and  stopping  at  to, 

spaced  by  step.  i'vLL  if  orto:  . 

usage: 

int_range(from,  step,  to;  //  from : step : to 
int .range ( i rom ,  C  .  to )  //  from : t o 

*/ 

int_matrix  ‘*int_rraige\ INTTYPE  from.  INTTYPE  step,  . INTTYPE  to); 

/*  int.matrix  ♦ int.sci^mat (INTTYPE  re ,  INTTYPE  im,  int  type); 
description:  ...  -  . 

Creates  a  1x1  matrix  from  the  scalar  (re  +  if  type  is  CMPLX.  If  type  is 

REAL  the  imaginary  part  is  ignored. 

arguments: 

INTTYPE  re  real  part 
INTTYPE  im  imaginary  part 

int  matrix  1x1  matrix  with  the  element  (re  +  j^im).  NULL  if  error, 
usage: 

scalar  mat  =  inc_3cl2mac(3 .  2,  CHPLX);  //  scalar _mat( 1 , 1)  =  3  +  2*2 
scalar Imat  =.  ir.t_scl2mat(3,  2,  REAL);  //  scalar_raat(l,l)  =  3 

int.matrix  ♦int_scl2mat(IHTTYPE  re,  IKTTYPE  im.  int  type); 

#endif 


II.5  .  INI'MATKIN.C 

#include  <stdio.h> 

#include  <math.h> 

#include  <scring.h> 

#include  <scdlib.h.' 

#inclucle  “typos.h" 

#include  '*  int.mat  rix  .  h." 

#include  *‘matr  i:< .  h." 

#include  "list.h" 

#include  **conv .  h” 

/*  Private  decl arat ioiu*  */ 

static  LIST  > tomp.l ist ;  /♦  litt  for  temporary  matrices  ♦/ 

/*  stuff  used  in  op_chdCk  and  mul_ch*:;ck  ♦/ 

#define  CQHP  Ox*l  /♦  mark.s  compatible  dimensions  */ 

tfdef  ine  SCAL  OxS  /  ^  markr.  one  oj>eraiKl  as  a  scalar  */ 

tdefiuG  IW'r(a^  V nt. )  Ui }  ; 

/*  Are  a  an- 1  h-  of  "  Ih*  d : mtrus  if-iir:  ♦/ 
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#define  EQDIM(ri,  b)  (  ==  h->rouz)  &&  (a->cols  ==  b->cols)  ) 

/*  Allocates  memory  for  a  irit_mutrix  with  dimension  rows  and  cols  */  . 
int  matrix  *inr.  nev;  matrixfint  rows,  iut  cols,  int  type) 

int^matrix  Mnat; 
mat  =  NULL; 

/*  Try  to  allocate  int.matrix  */ 

if^((mat  =  ( int_mat  r  ix  ♦  y'malloc  Csizeof  (  int_matrix) ) )  !=  NULL) 

inat->cols  =  cols;  mat.->rows  =  rows;  mat->type  =  type; 

/*  Try  to  allocate  real  part  +/ 

if^((mat->rc  =  <  i  NTTYPEt  )malloc  (SIZE(r:iat )  *  sizeof  (INTTYPE)  )  )  !=  NULL) 

if  (type  ==  CMPLX)  /*  Try  to  allocate  imaginary  part  */ 

if  ((mat->im  =  ( INTTYPE+)malloc (SIZE(mat )  *  sizeof (INTTYPE) ) )  ==  NULL) 
{  /*  malloc  of  niat->im  failed,  cleanup  ♦/ 

f ree(m:it*->2*e )  : 
f ree(mac) : 


riULl. 


} 

else 


free (mat ) : 
ma.t  =  NULL; 


} 

else 


malloc  of  mat->re  failed,  cleanup  */ 


malloc  of  mat  failed,  cleanup  ♦/ 


return (MULL) ; 


return(mat ) ; 

> 

/*  Returns  a  copy  the  integer  matrix  source  */ 
int^matrix  +int  coov  matrixCint  matrix  ■••source) 

< 

int. matrix  =<'target: 

INTTYPE  +tre.  »-sre; 
int  i ; 

if  ((target  =  int.new.matr ix (source->rows ,  source->cols ,  source“>type) )  !=  NULL) 

sre  =  source->re: 
tre  =  target->re; 

for  (i  =  0:  i  <  SIZEf source) ;  i++) 
treCi]  =  sre[i]  : 
if  (source->type  ==  CMPLX) 

{ 

sre  -  source~>im: 
tre  =  target ->im: 

for  (i  =  0;  i  <  SIZE( source) ;  i  +  e') 
treCi]  =  sreCi]: 

} 

return ( target ) ; 

} 

return(NULL) ; 


/*  Allocates  memory  for  a  temp  int. matrix  with  dimension  rows  and  cols  */ 
int^mtitrix  *  int..new_tomp(  int  rows,  int  cols,  int  type) 

int_matrix  Mnnt ; 

if  ((mat.  =  i  ut.new  marri  X  (  rows  ,  cols,  typo))  !=  NULL) 
append  1  i ::  t.  (  t .  'mt  *  1  \  r.  t  .  ma  t )  ; 

} 
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return  Cma  r. )  : 

} 

/*  Copies  i’lt  f.r  i>:  in  t(>  •"  t‘;mp  */ 

int  matrix  >  iiit._copy_temp^  i  nt  ..matrix  ^=source; 

{ 

int_matrix  .-“target: 

if  ((target  =  int^copy^inatrix (source } )  !=  HULL)  /♦  copy  source  int.matrix  ♦/ 

if  (.appeiullist(tomp_lir.t,  target)  ==  HULL)  /*  Try  to  insert  target 

in  temp.list  */ 

int.kill^matrixC target ) ; 

return  target:  /•'“.return  copy  ♦/ 

/*  Frees  memory  used  by  in  “/ 
void  int_kill_niatrix  (  int  .ma  t  ri  X  “lu) 

{ 

if  (m  !=  HULL) 

if  (m->re  !=  HULL) 
free(m->re): 
if  (m->type  ==  CMPLX; 
if  (in->im  !=  MULL) 
f ree(m->im) : 

} 

> 

/*  Promotes,  if  necessary.,  the  operands  a  and  b  to  complex  matrices  */ 
int  int  cmslx  oromote(int  matrix  *a,  int^matrix  ’“b) 

{ 

int  i ; 

if  (a  !=  NULL  -Sc-v  b  i=  NULI.) 

if  (a->type  ==  CMPLX  b->type  ==  REAL) 

^  if  (fb->ini  =  (IMTTYPE»)r.:alloc(SIZE(b)  »  sizeof (INTTYPE)))  !=  HULL) 

{ 

b->type  =  CjMPLX; 
for  (i  =  0:  i  <  SI2E(b);  i.+  +  ) 
b->im[i]  =  0;  .  . 

return  0: 

} 

else 

{ 

return  -1: 

} 

> 

if  (b->t.ype  ==  CMPLX  kk  a->type  ==  REAL) 

^  if  (fa->ini  =  (IMTTYPE-*)n!allocfSIZE(a)  ♦  sizeof  (INTTYPE)))  !=  HULL) 

{ 

a->cypf-  -  CMPLX : 
for  (i  “  0;  i  <  SIZEfa);  i++) 
a~>iin  [  i .!  =  0  : 
retuin  0; 

} 

els« 

{ 

r'.-tn :  :i  •  1  : 

} 

} 

> 

return  0: 

> 

int  int  »m  1  k(  mi  in.ji  i  i  x  »a 


i  lil.m  it.  f  i.\  'b) 


N 
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int  type  =  0; 

int^matrix  *'C;:ip: 

if  (a  !=  NULL  b  !=  HULL) 

{ 

if  (ct->type  ==  CMPLX  I  I  b->type  CMPLX) 

/*  Meed  for  complex  {vromot ion?  +/ 

{ 

int_cinplx_promoio( a.  b)  ; 

■  type  1=  CMPLX: 

} 

else 

type  1=  REAL; 
if  (a->cols  ==  b->rot-:s) 

type  1=  COMP;  /+  a  and  b  are  compatible  */ 

if  (SIZr:fb)  ==  1  I  1  SIZE(a)  ==  1)  /+  a  or  b  is  scalar  */ 
type  i-  SCAL  i  COMP:  a  and  b  are  compatible  */ 

> 

returnC type ; ; 


int  int.op^check ( iiu.  raar-rix  ♦a.  inc..niatrix  =^b) 

int  type  =  C: 
int^matrix  ♦tmp; 
if  (a  !=  NULL  b  !=  NULL) 

{ 

if  (a'>type  ==  CMPLX  II  b->type  ==  CMPLX) 

/+  Need  for  complex  promotion?  +/ 

int_cnTpl:-:_promote(a.  b)  : 
type  i=  CMPLX; 

} 

else 

type  1=  REAL; 

if  (a-*>ro:-:s  ==  h->rot-:s  a->ccls  ==  b“>cols) 

type  1=  COMP;  /*  a  and  b  are  compatible  */ 

if  (SIZE(b)  ==  :  I !  $IZE(a)  ==  1)  /*  a  or  b  is  scalar  */ 
type  1=  SCAL  I  COMP;  /*  a  and  b  are  compatible  */  . 

> 

return(type) ; 

> 

/*  addition 

int.matrix  +int  add  (int  matrix  ^'a,  int  matrix  *b) 
int_matrix  ♦sum; 

INTTYPE  +sre,  ♦sim,  ♦are,  ♦aim,  ♦bre,  *bim; 
int  i,  type; 

set_f name (“int  add" ) ; 
sum  =  NULL; 

if  (  (type  =  int  op  ch«ck(a,  b))  t  COMP) 

{ 

a  and  h  are  compatible  +/ 

if  (type  5:  SCAL)  /♦  either  a  or  b  is  a  scalar  */ 

{ 

if  vSIZE(b)  ==  1  /♦  b  is  a  scalar  ♦/ 

{ 

a  r  e  =  b  -  >  r  e  :  a 

im  =  a->iin;  /*  so  scalar  is  in  are/aim  */ 

sum  =  int_copy. 

} 

ant 
*( 


are 

=  b->re 

:  aim  =  b->im; 

bre 

=  a->re 

:  bim  =  a->iin; 

sum 

=  int.c 

opy_tomp(:w;  / 

/  ♦  a  IS 

x':  l  c  * 

-  ,  1  -  >  r .  - 

:  a  i:;:  -  a  •  ^  im  ; 

■  1.  *MO 

;  :■;:!!  -  1  '  \  iti ; 
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sum  =  in';  .:..py_t.'jmp(b) ;  /♦  copy  the  non-scalar  to  sum  */ 

} 

/»  a  ano  b  are  non-scalars  •/ 

are  =  a->re:  aim  =  a-^-im; 
bre  =  b->re;  bim  =  b->im; 

sum  =  int_copy_ierap(b) ;  /♦  copy  b  to  sum  */ 

if  (sum  !=  MULL)  /*  if  copy  was  successful  ♦/ 

{ 

sre  =  sum->re; 
sim  =  sum->im: 

if  (type  &  3CA!.)  /+  scaljir  addition  +/ 

for  (i  =  0:  i  <  SIZE(sum):  i++^ 

^  sre[i]  -  choc’r:(sre[i]  are[0]):  /*  scalar  is  in  are/aim...  */ 
if  (typ-;  &  CHPLX)  /*  and  sre/sim  is  a  copy  of  non-scalar  */ 
jirarVi  =  chock(si!!i[i]  +  aimCO]); 

} 

> 

else 

>{ 

"  for  (i  =  0:  i  <  SIZECsiun);  i++) 

^  sreCi]  =  check(sre[i]  +  areCi]);  /*. sre/sim  is  a  copy  of  b  */ 
if  (type  &  CHPLX) 

sim[i3  -  check(simCi]  +  ciimCi]); 


return (sum) ; 

> 

/*  pointwise  multiplicar ion  */ 

int_matrix  ■*‘int_pmul( int^nintrix  int-^matrix  *b) 

int^matrix  *prod:  * 

INTTYPE  *pre*,  *pim,  +are,  ♦aim,  »bre,  »bira; 

int  i,  type: 

set_fnanie(’'int.pnml") ; 

prod  =  NULL: 

if  ((type  =  int.op.cbeckCa,  b))  t  COMP) 

/♦  a  and  b  are  compatible  ♦/ 

if  (type  *  SCAD  /♦  either  a  or  b  is  a  scalar  ♦/ 

^  if  CSIZE(b)  ==  i)  b  is  a  scalar  ♦/ 

^  are  =  b->re:  aim  =  b~>iiu:  '*  interchange  a  and  b  ^ 
bre  =  a->re:  bim  =  a->ini:  so  scalar  is  in  are/< 

prod  =  int  copy_temp(a) ;  /'  copy  the  non-scalar  t< 

> 

/*  a  is  scalar  */ 


are  = 

b->re 

:  aim 

=  b->iiu: 

bre  = 

a->re 

:  bim 

=  a->im: 

prod 

=  int. 

copy. 

cemp(a) ; 

/♦  a  is 

are  = 

a->re 

:  aim 

=  a->im; 

bre  = 

b->re 

;  bim 

=  b->im: 

prod 

-•  int. 

copy. 

temp(b) : 

/*  a  and  b  are  non-scalars  ♦/ 


hr,-  -  !^-M 


I  i  in  Ct  -  1 EU  i 

,  Uii 
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} 


prod  =  i:u  O; )  ;  /♦  copy  b  to  prod  ♦/ 

if  (prod  !=  HULL)  /»  copy  woo  successful  */ 

{ 

pre  =  prod->re: 
pirn  =  p>ro(i->im; 

if  (type  &  SCAD  /♦  scalar  inulc iplication .  */ 

{  /'^  scalar  is  in  are/aim  and  */ 

/'♦'  pre/pim  is  a  copy  of  non~scalar  */ 
for  (i  =  0;  i  c  SIZE(prod);  i+-+) 


{ 


} 

els  ^ 
{ 


:or 

X 


} 

return(prod) : 


if  (type  LEAL)  real  multiplication  */ 
pre[i]  =  check (pre [i]  *  are[0]); 
else  .  complex  multiplication  */ 


pre[ij  =  checkC check (are [0]  »  bre[i])  -  check (aim [0]  *  bimCi])) 
piiiiLij  =  check(check(are[0]  bim[i])  +  check(aim[0]  *  breCi])) 


} 


/t  ordinary  pointwise  multiplication  */ 
pre/pim  is  a  copy  of  b  */ 

(i  =  0:  i  <  SIZE (prod);  i++) 

if  'type  k  REAL)  /♦=  real  multiplication  */ 
preCi]  =  check ( pre [i]  *  are[i]); 

{  /'^  complex  multiplication  */ 

pre[i]  =  check(check(are [i]  +  bre[i])  -  check(aimCi]  *  bimCi])) 
pimfi]  =  check(check(are [i]  bim[i])  +  check(aim[i]  *  breCi])) 


/*  multiplication  +/ 

int .matrix  *int  mul( int. matrix  -‘‘a,  int  matrix  *b) 

{ 

int.matrix  *prod: 

INTTYPE  *pre,  ’►pirn,  •►are,  •►aim,  ►bre,  •►bim,  tmp; 
int  i ,  j ,  k ,  type : 
set.fname(”int_mul" ) ; 
prod  =  NULL; 

if  ((type  =  int  mul  check (a,  b)>  k  COMP) 

{ 

/*  a  and  b  are  compatible  ♦/ 

if  (type  k  SCAD  h  either  a  or  b  is  a  scalar  ♦/ 

{ 

if  (S12E(b'  ==  1)  b  is  a  scalar  */ 

{ 

are  =  b->re:  aim  =  b->im;  /♦  interchange  a  and  b  */ 

bre  =  a->re:  bim  =  a->im;  /♦  so  scalar  is  in  are/aim  ♦/ 

prod  -  int  copy  tempfa):  /►  copy  the  non-scalar  to  prod  */ 

} 

els.- 

i  /*  a  is  seal  ax'  ►/ 

a  I'  ».•  -  .1  a  i  m  "•  a  -  >  i  ni ; 

i'l  ^  re  :  ium  ■  b->  im  ; 

pi'od  ’  n  t. .  a.  .i-.y  .  »■ ^  ^  /*  non-scalar  to  prod  */ 


} 
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else 

{ 


/♦a  ruvl  b  are  non-scalars  */ 

are  ^  a->re;  aiin  ■-  a->im; 
bre  =  b->re:  bi:n  -  b->im; 

prod  =  inc.ne:;.t.emp^a->rowG.  b->cols,  a->type);  /*  copy  b  to  prod  ♦/ 


if  (prod  !=  MULL) 

{ 

pre  =  prod->re; 
pim  =  prod->im: 
if  (type  Sc  SCAD 
{ 


/t  copy  was  successful  */ 


f 

else 

{ 


scalar  multiplication.  */ 

/*  scalar  is  in  are/aim  and  */ 

pre/pim  is  a  copy  of  non-scalar  */ 

for  Ci  =  0;  i  <  SIZ£(prod) ;  i++) 

if  (type  yc  REAL)  real  multiplication  */ 

C'l'eCi]  =  check(ca*eCC]  ♦  bre[i]); 

else  , 

{  /+■  complex  multiplication  */ 

preCi]  =  check(check(are[0]  ♦  bre[i])  -  check(aim[0]  *  bimCi])); 
pim[i]  =  check(checkOareC0]  ♦  bimCi])  +  check(aimC03  *  bre[i])); 

/*  ordinary  matrix  multiplication  */ 

/♦  pre/pim  is  a  copy  of  b  */ 

for  (i  =  0:  i  <  prod->row3 ;  i++) 

{  *  /♦  for  ith  row  of  prod  */ 

i:  ( type  ii  REAL) 

{  /»  real  multiplication  */ 

for  (j  =  0:  j  <  prod->cols:  j++)/*  for  jth  col  of  prod  */ 

{ 

pre[i  +  j  ♦  prod->row3]  =  0; 
for  (k  =  0;  k  <  a->cols;  k++) 

{  /*  compute  prod(i,j)  */ 

preCi  +  i  ♦  prod->rows]  =  check (pre [i  +  j  *  prod->rows] 

•'w 


/ 

else 

{ 


/*  complex  multiplication  */ 
for  (j  =  0;  j  <  prod->col3;  j++)/*  for  jth  col  of  prod  ♦/ 

preCi  +  j  *  prod->rows]  =  0; 
pimCi  +  j  ♦  prod->rows]  =0; 

for  (k  =  0:  k  <  a->col3;  k++)  .x  / 

{  /★  compute  prod(i,j)  */ 

tmp  =  check(check(areCi  +  k  *  a->rows]  *  breCk  +  j  ♦  b* 

check(aimCi  +  k  *  a->rows]  ♦  bimCk  +  j  ♦  b- 

pre[i  +  j  ♦  prod->rows]  =  check(preCi  +  j  ♦  prod->rows] 
tmp  =  check (check(areCi  +  k  *  a->rows]  *  bim[k  +  j  *  b- 

check(aim[i  +  k  *  a->rows3  ♦  breCk  +  j  ♦  b- 

pimLi  +  j  ^  prcd->rows]  = 

check(pimCi  +  j  ♦  prod->rows]  +  tmp); 

’> 

} 


} 


} 


return ( prod ) : 

} 

/*  Takes  the  ilut  [»art  of  :;i  ♦, 


+  check  ( 


’>ro¥s]  ) 
>rows] ) ) 
+  tmp) ; 
■>rows] ) 
•>rows] ) ) 
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int_matrix  ♦  int.roall' iiU-  renliix  tm) 
int_matrix  *real; 

if  ((real  =  iiit  copy  i'.-iiip(m) )  !=  HULL; 

{ 

if  (real->type  ==  CHPLX) 

{ 

real->type  =  REAL; 
if  ( real -> ini  !=  HULL) 

■  { 

f ree(re:il->ir,i) ; 
teal->i!n  =  !iULL: 

> 

} 

> 

return(real) ; 

} 

/*  Takes  the  the  intaginary  pra’t  of  m  +/ 
int  mat r  i:-:  t  in t  _  i;;ia ( i  n  t  r;ia  tr  i  ♦m ) 

{ 

int^matrix  +imag: 
int  i; 

if  ((imag  =  int  copy  tenipCjii)  )  !=  HULL) 
if  (imag->type  ==  CMPLX ) 

{  /*  if  complex  get  rid  of  real  part  */ 

if  (imag->re  !=  MULL) 
free'  in’.a;ir"”''ro '*  i 

imag->re  =  imag“>ini:  /*  make  old  imag  part  be  new  real  part  */ 
imag~>irn  =  MULL:  clean  up  ♦/ 

else 

i  /*  if  not  complex,  the  imag  part  is  zero  */ 

for  (i  =  C;  i  <  SIZE(imag);  i-f-+) 
imag->re[i]  =  0; 

> 

imag->tvpe  =  REAL;  /*  the  imag  part  is  real  */ 

y 

return (imag) : 

/*  Return  index  to  maximal  element  of  m  */ 
int  int_max_incle:c(  in  t  matrix  xir.) 

< 

int  i ,  mx ; 

INTTYPE  i^re.  *im; 
mx  =  0; 

if  (m  !=  HULL) 

.  < 

re  =  m->re; 
im  =  in“>im: 
if  (m->tvpe  =  REA  I.) 

{ 

for(i=i;  »<  SIZE(m);  i+^') 

{ 

if  (re[i]  >  re[ntx]) 
mx  =  i ; 

} 

else 

{ 

for  (i  =  !  i  srZECm); 

if  ( i  !  (:  r  i  !  .  iniCi])  >  cabs  i.  re  [mx]  ,  im[mx])) 
mx  *  i  : 
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} 

> 

return(mx;: 

> 

./*  Return  index  to  miniinnl  element  of  m  ♦/ 
int  int  min  index Cint. matrix 

int  i,  mi: 

INTTYPE  *re,  ’'im; 
mi  =  0; 

if  (m  !=  HULL; 

{ 

re  =  ra->re; 
im  =  m->im; 
if  (m->tyne  ==  REAL) 

for  (i  =  1:  i  <  SI2E(m) :  i++) 

if  (reCi]  <  re[mi]) 
ini  =  i : 

} 

} 

else 

for  (i  =  1;  1  ^  SIEEt. m):  i++) 


if  uabsi.reCi],  iin[ij)  <  cabs  (re  [mi]. 


return (mi) : 

> 

/*  negates  m  +/ 

int  matrix  int. minus ( int_:natrix  ♦ni) 

i 

int  i,  size; 
int .matrix  *Reg; 

INTTYPE  ♦re,  ^im; 
if  (m  !=  HULL) 

if  ((neg  =  int  copv.ten:p(m) )  !=  NULL) 

{  • 

re  =  neg~>re; 
im  =  neg->im: 

for  (i=0:  i  <  SIZE(m) ;  i++) 
re[i]  =  -reCi]  : 
if  (m->type  ==  CHPLX) 

for  (i=0:  i  <  SI2E(m) ;  i++) 
imCi]  =  -im[i]: 

} 

} 

} 

return(ne^) : 

> 

/*  conjugnc.e  m 

int  matrix  ♦ int. con j ( i nt .matrix  ♦m) 
int  i ; 

int  matrix  ♦coi’.  ]; 

INTTYPE  Mm:, 
if  (in  !=  Min.l.' 

if  ((t  OU  i  -  jia...C‘'py  in);  !-  MULL) 


imCmi]  )) 
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im  =  conj->im: 
if  ==  CM? LX) 

f 

for  (i=0;  i  <  SI2£(in)  ;  i  +  +  ) 
im[i]  - 

■» 

/ 

} 

> 

return(conj )  ; 

> 


/*  append  b‘z  rows  to  n  */ 

int^matrix  ♦int^appendrowsT  int  matrix  ^'a,  int^matrix  *b) 
int  ai,  bi,  ci,  i,  j: 

INTTYPE  ♦ere,  ♦cim.  '"are,  *aim,  +brc,  ♦biin; 
int_matrix  ^c: 
if  (b  !=  HULL) 

if  (a  ==  NULL) 

{ 

return ( h) ; 

} 

if  (ci->cols  ==  b->cols  J 

{ 

int.cinpix^promot e (  a,  b)  : 

if  ((c  =  int_new.temp(a“>rows  +  b->rows,  a->cols, 
.  { 

are  =  a”>re;  aim  =  ci~>im; 
bre  =  b“>re:  bim  =  b*’>im; 
ere  =  c->re:  ciin  =  c->im: 
ai  =  bi  =  ci  =  0; 
for  (j  =  0;  j  <  a->cols;  j++) 

\ 

for  a  -  0\  i  <  a“>rows;  i++) 
creCci++j  =  areCai++]; 
for(i=0:  i<  b->rows;  i++) 
cre[ci+-i-j  =  bre[bir+]; 


ai  ~  bi  “  ci  - 
if  (a-->type  ==  CHPLX) 


for  (j  =  0:  i  <  a->cols;  j++) 

{ 

for  (i  =  0: 

cim[ci^+] 
for  (i  =  0: 
c im  [c  i  ^  » ] 


i  <  a'->rows;  i++) 
=  aim[ai++]  ; 
i  <  b->rows :  i++) 
=  bim[bi++] ; 


} 

} 

retiirnCc )  ; 

} 

else 

{ 

//  error:  d  i  sn  e  n : :  ion  m  i :na  t  c  h 

error  ("int  ^af'peiu.i  rows  :  d  ion  mismatch")  : 

^  } 

return(NULL) : 

} 

/*  append  b’s  coLr.  (.o  a  ♦/ 

int_matrix  ♦^int  nil  iinfiix  ^a,  int  matrix  ♦b) 

i 

I  NT!  /PE  *  a  I  « * .  ♦  .1  n:; .  ♦  1 ;  i  ■  • ,  ♦  1  •  i  m  ,  » «:  i\; ,  ^c  i  m  ; 
int  i  ,  j  : 
int^rnatrix  *0; 


a->type))  !=  NULL) 
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if.(b  !=  MULL; 

{ 

if  (a  •==  mull; 

returnCb); 

} 

if  (ci->roys  ==  b->i'OM::) 

if  (\C  =  int  temp(a->rowi> ,  a->cols  +  b->cols,  a->type))  !=  NULL) 

int_cmplx_promote(a ,  b) ; 
are  =  a->re;  aim  =  a->iin; 
bre  =  b->re;  bim  =  b->im; 
ere  =  c->re:  cim  =  C“>im; 
for  (i  =  0;  i  <  SIZE(a) ;  i++) 
ere  [i]  =  areCi] ;  ^ 

for  (j  =  0;  i  <  SIZE(a): 

creCi  ^  j]  =  bre [j J : 
if  (a->type  ==  CHPLX'^ 

r 

for  (i  =  0;  i  <  SIZ£(a);  i++) 
cim[i]  =:  aim[i]; 
for  (j  =  0;  J  <  SI2£(a);  j++) 
cimL^  ^  Jj  ”  biniCjJ  r 

> 

} 

returnCe); 

> 

else 

//  error:  dimension  rnismat-cii 

error ("int^appendcols  :  dimension  iViis:natch“)  ; 
return (HULL) : 

} 

/*  transpose  ♦/ 

int  matrix  ^  in’ _transp(  int.marr  i  x  i 

int^matrix  ^c: 
int  i ,  j  :  . 
c  =  NULL: 
if  (m  !=  HULL) 

if  ((c  =  int  cooy_te.T.:nm) )  !=  MULL) 

{ 

c->ro:-;s  =  m->cols; 
c~>cols  =  m->rows: 
for  (1  =0;  i  <  m->cols;  j+e) 

for^Ci  =  o’;  i  <  m->ro;-73;  i  +  +  )  ’ 

c->re[i  +  i  c->rows]  =  m~>re[i  +  j  *  m->rowsj ; 

if  (m->typL  ==  CMPLX) 

{  .  , 
for  ij  =  0:  j  <  ra->col3:  je+) 

for  (i  =  0:  i  <  m->rovjs:  i++) 

c->im[j  ♦-  i  +  c->rov::'.]  =  m“>im[i  +  j  m~>rowsj  ; 

\ 

J 

} 

} 

return ( c ) ; 

> 

int  matrix  Mut  i  nt  i  i  x 

i 


int_mati  ix  ♦c: 
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int  i ,  j  ; 
c  =  MULL; 
if  (m  !=  HULL) 

if  ((c  =  int_copy_r-e:p.p(m) )  !=  HULL) 

{ 

c->ro'-.’s  =  m->coln: 
c->col3  =  in->ro;;s: 
for  (j  =  0:  j  <  n;->col3:  j  +  +  ) 
for  (i  =  0;  i  <  m->roKs:  l^^) 

c->re[j  +  i  *  c->ro'-:s]  =  m->re[i  +  j  m->roMs] ; 
if  (m->cype  ==  CHPLX) 

1.  . 

for  Cj  =  0:  j  <  m->ccis:  j  +  +  ) 
for(i  =  C;  i<  m”>ro;;s ;  i++) 

c->i:r.[j  i  ♦  c->ro:;2]  =  +  j  *  m->rows]  ; 

•> 

> 

} 

return(c); 


/*  return  nil  cols  o:  m  nnc  rows  indexed  by  n 
Matlab: 

»  m(a,:)  7,  return  nil  cols  and  rows  of  m  indexed  by  a 

*/ 

int.matrix  * int.index.rows ( int.matrix  int^matrix  *a)  /*  All  cols,  some  rows 
/*  int_matrix  *:u  source  matrix  */ 

/ *  int  matrix  »  a  i  nd  a  m a  t  r  i  x  *  / 

i 

int^matrix  c ; 
int  i ,  j ,  k  ; 

INTTYPE  ’*'ci,  =^ai,  -^mi; 


if  (m  !=  NULL  &&  a  !=  MULL) 

a  =  int_real(a);  /*  real  integer  indicies  only  */ 

if  (a“>re [int.min.indexC a )]  >  0 

a->re[inr.  max  indexCaj]  <=  m'->rows)  /*  are  indicies  in  range  */ 

{ 

if  (Cc  =  int  new  temoCSIZE^a) ,  m->cols,  m->type))  !=  NULL) 

.{ 

k  =  0: 
ci  =  c->re: 
mi  =  m“>re: 

ai  =  a->r6:  index  real  part  */ 

for  (j  =0;  j  <  m-->cols;  j++)  /+  for  all  cols  in  m  */ 
for  (1=0;  i  <  SIZE(a) ;  i++)  /»  for  all  elem.  in  a  */ 
ci[k+^]  =  mi[aiCi]  ~  1  +  j  *  m’->cols]  ;  /*  get  column  */ 
if  (in“>type  ==  CMPLX)  /*  index  imaginary  part  if  needed  */ 

r* 

t 

k  =  0; 
ci  =  c->i:n: 
mi  = 

ai  =  a“>re: 

for  (j  =0:  j  <  m->cols;  j++)  /*  for  all  cols  in  m  */ 
for  (i  =  0;  i  <  SIZE(a) :  i++)  /*  for  all  elem.  in  a  */ 
ci[k^-»J  =  mi[ai[i]  -  1  +  j  ♦  m->cols]  ;  /*  get  col  */ 

\ 

y 


rtnu!ii(c;-:  /*  don'f  +/ 

X 

.1 

} 

retuim  NIU.I.''  ; 

> 

/♦  return  nl'.  t. -.i'  by  ;i 


*/ 
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>>  mOi.i)  7.  return  .-,11  rous  and  cols  of  m  indexed  by  a 
»  in(  : )  'U  return  in  as  a  column  vector  (a  ==  BULL) 

int.matrix  »int.index_cols( int.matrix  *m,  int.matrix  *a)  /*  All  rows,  some  cols  */ 
/*  int_matrix  *m:  source  matrix  ♦/ 

/*  int  matrix  »a;  index  matrix  */ 

int.matrix  *c: 
int  i ,  j ,  k ; 

INTTYPE  *ci,  ♦mi.  *ai; 

if  (m  !=  BULL)  /*  if  source  mtitrix  is  not  NULL  */ 

^  if  (a  !=  NULL)  /*  if  index  matrix  is  not  NULL  */ 

a  =  int_real(a);  /*  real  indicies  only  ♦/ 

if  (a->reCint_min_index(a)]  >0  .....  */ 

k&  a->reCint_max_index(a)]  <=  ro->rows)  /*  are  indicies  in  range  */ 


if  ((c  =  int_nBW  temp(!n->rot:s .  SIZE(a),  m->type))  !=  NULL) 

{  ■ 

k  =  0: 
ci  =  c->re: 
mi  =  m->re: 

ai  =  a->re;  /*  index  the  real  part  */ 

for  ( i  =  0;  i  <  m->cols:  j++)  /♦  for  the  whole  row  of  m  */ 
for*(i  =  o';  i  <  SI2E(a);  i++)  /♦  for  all  elem.  in  a  ♦/ 
ci[k++]  =  mi[j  +  (ai[i]  -  1)  *  m->cols] ; 
if  (m->ty|;e  ==  CMPLX)  /•  index  imaginary  part  if  needed  */ 

r 

\ 

k  =  0: 
ci  =  c->im; 
nii  = 

for  (i  =  0;  j  <  r.;->cols:  j++)  /*  for  whole  row  of  m  */ 
for*(i  ='o:  i  <  SIZE(a) ;  i++)  /*  for  all  elem.  in  a  ♦/ 
ci[k++]  =  milj  +  (aiCi]  -  l)  *  m->cols] ; 


return! c):  done  */ 

> 

else 

//  error:  indices  out  of  range 

error ("int  index  cols:  indices  out  of  range")! 

} 

> 

else 

^  c  =  int.copy.te-mpCra) ;  /*  if  a  ==  NULL,  make  m  a  row  vector,  */ 

c->rows  =  srZEUu) ;  /»  this  is  a  matlab  convention  */ 

c->cols  =  1 : 

return(c>;  done  ♦/ 

} 

} 

return(NULL) ; 

/♦  return  m  row-indexe'l  by  a  and  column-indexed  by  b 
Matlab: 

»  m(a,b)  */•  indexes  both  rove  and  cols  ^  .  u  > 

>>  m(ct)  y,  indexer,  m  as  voliimn  vector,  but  returns  a  matrix  with  a  s 
y,  dimvinuionr.  (1>  HUI.L) 

♦/  .  * 
int  matrix  +int  index,  i I  r. (  Lnt  _niatrix  ^m,  int_uiatrix  “^a,  int_roatrix 

/+  int.matrix  ♦m;  i-.ourc-*  niatrix  +/ 

/  ♦  in  r.  _ m:\ c  r  i  x  ♦  a  ;  r  •  -  v  i  nd ♦: :<  ma  t  r  i  x  ♦  / 
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/*  interna r.ri>:  •b; 


:i  tndox  matrix 


int^matrix  >c: 
int  i ,  j  ,  k  ; 

IMTTYPE  ♦vai,  ^bi, 

if  (m  !=  NULL  Ut  a  !=  MULL) 

{ 

a  =  int_real(.a)  ; 
b  =  .int_real 'sb)  ; 
if  (b  ==  NULL^ 


{ 


only  real  indicies  */ 

index  m  a::  a  column  vector 
and  use  a's  dimensions  */ 


if  (a->re[iuc._mi:;_index(a)]  >  0  * 

kk  a->re[int_.Tax_index(a)]  <=  SIZE(m))  /*  indicies  in  r^ge  */ 

if  {(.c  =  int _copy„temp(a) )  !=  MULL)  /*  copy  a  */ 

c 

\ 


a  i  =  a 
for  yi  - 
c:ri]  - 


i  <  SIZELa);  /*  index  m  */ 

i[ai[i]  -  ■] 


i:  ('m->r.y:-.e  ==  CMPLX )  index  imaginary  part  if  needed  */ 


ci  =  :’>in; 
mi  =  im 
for  '''  i  =  0 


i  <  SIZE(a);  i++)  /*  index  m  */ 


ciLiJ  =  milaiLiJ  -  iJ 


} 

rerurn( c) : 


/*  done  */ 


/ 

else 

{ 

//  error:  indicies  out  of  range 

error f* ” int. index  rc:;3_cols:  indices  out  of  range'*); 

> 

> 

if  (b  !=  MULL;  I*  index  both  rows  and  cols  of  m  */ 

if  (a->re [int^min^indexCa)]  >  0  kk  b->re [int.min_index(b)]  >  0  && 

a“>re [int_maM_index(a)]  <=  m-*>roHS  kk  b->re [int_max_index(b)]  <=  in->cols) 

if  C(c  =  int  new_temp(SIZE(a) ,  SIZE(b) ,  m->type))  !=  NULL) 

{ 

ci  =  c->rc 
mi  *-  in->re 
ai  =  a-'^ve 
hi  =  b“^re 

k  =  0;  /*  index  real  part  */ 

for  (j  -  0;  j  <  SIZEl'b):  j+  +  )  /*  for  all  cols  ind.  */ 
foi  :  -  0;  i  <  SIZE(a);  i+  +  )  for  all  rows  ind.  */ 
oiik^']  -  miCcti[i]“l  +  (bi[j]  -  1)  *  m->cols]  ; 
if  (rn->cypc  ==  CMPLX)  / ♦=  index  imaginary  part  if  needed  */ 

J 

ci  =  C‘->im; 
mi  =  m“>im; 

f’  0 : 

for  ij  =  0:  j  <  SIZE(b):  j++)  /+  for  all  cols  ind.  ♦/ 
for  (i  =  0:  i  <  SIZE(a)  ;  i++)  /+  for  all  row  ind.  */ 
c 1 [k  ^ ♦ 1  =  mi [ai  [i]  -  1  + 

ibiCj]  -  1)  ♦  m->cols] ; 


r 


/•  d.-.U..: 
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} 

elc6 

{ 

//  error:  inclico:;  out  of  rcinge 
error (** inc_inclex  rows.cols:  indices  out  of  range'*); 

} 

.} 

} 

return(NULL) ; 

} 

/*  make  matrix  of  a  f rom : s tep : to  statement, 

Matlab: 

>>  from:  step:  to  V. 

»  from:  to  %  step  ==  NULL  ->  step  size  =  1 

int  matrix  +int  ranee f INTTYPL  from,  INTTYPE  step,  INTTYPE  to) 

{  “ 

int  .matrix 
int  i; 

INTTYPE  j ; 
m  =  NULL; 

if  (step  ==  0)  /♦  if  step  ==  0,  set  step  size  =  1  */ 

step  =  1; 

if  (to  <  from  &&  step  <  0)  if  to  <  from  then  step  must  be  <  0  */ 

if  ((m  =  int  new  temp(l,  INT( 1  +  (from  -  to)  /  -step),  REAL))  NULL) 

j  =  from;  /+  start  at  from  +/ 

for  (i  =  0;  i  <  SI2£(m) ;  i++ )  for  all  elem.  in  m  ♦/ 

r 

m->re[ij  =  j: 

j  tr  step:  '  /*  update  by  step  size  ♦/ 

} 

> 

} 

else  ,  ^  , 

{  step  size  >  0  and  to  >  from  */ 

if  ((m  =  int  new  temp(l,  INTCl  +  (to  -  from)  /  step),  REAL))  r=  NULL) 
j  =  from; 

for  (i  =  0;  i  <  SI2E(m);  i++) 

{ 

m->re  [i]  =  j ; 

j  +=  step:  /♦  update  with  step  size  */ 

} 

> 

} 

return(m);  /♦  done  ♦/ 

> 

/♦  Returns  a  copy  of  mat  according  to  the  MATLAB  expression 
>>m(row,  col) 

For  use  NULL  for  row  or  col,  that  is 
»m(row,:) 

would  be  coded  as  submatrix (mat ,  row,  NULL)  */ 
int  matrix  ^iut.sub  matrix ( int. matrix  ^mat ,  int. matrix  '+rows  ,  int .matrix  *cols) 

if  (mat  !=  NULL) 

if  (rows  !=  MULL  £&  col::  !=  NULL) 

return(  int.incltiX_row::..c(^  1  :%(mac ,  rows,  cols));  /+  mat(rows,  cols)  */ 
if  (rows  ==  MtlLL  col:.:  ! -•  MULL)  /+  mat(:.  cols) 
return  (  in  t .  i  lul x  . c o  I  s  ( ma i ,  c o  L ; 

if  (rows  !  MUM.  NULL)  /♦  matCrows,  :)  “♦/ 

return  (  int .  .  i  ( luai  .  ; 
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returnCint  .coi>y_r  oftipOnc«t. ;  )  : 


rucit  (  :  ,  :  )  ^  / 


returnCmat ) ; 

> 

/*  Assigns  source  to  a  submatrix  of  target  indexed  by  rows  and  cols. 

»target (rows  ,  cols)  =  source 

rows  and  cols  must  be  vectors  or  NULL,  NULL  is  interpreted  as  that  is 
»target  (rows  ,  :  )  =  source 

would  be  coded  as  assiguf target ,  rows,  NULL,  source). 

NOTE:  does  not  handle  the  case 
»target(:,:)  =  source 

use  target  =  int_copy_ ter[!p(.source) ,  for  this  case 

♦/ 

int^raatrix  *int.assign( int  matrix  ^target,  int_matrix  *rows,  int^matrix  *cols,  int_matrix  ♦sot 

INTTYPE  ♦r,  ^c; 
int  i ,  j ,  sr ,  tr ; 
if  (target  !=  MULL) 

{ 

if  (rows  !=  NULL  5:1*  cols  !=  NULL)  /*■  targ€t(row3,  cols)  =  source  */ 

rows  =  int_real(rows) ;  />  Only  real  integer  indicies  +/ 
cols  =  int^real ( cols ) ;  /•*-  Only  real  integer  indicies  */ 

/*  make  sure  dimensions  match  */ 

if  (rows~>re  [int _max_  index  (rows )]  <=  target “>rows  /♦  max  (rows)  <=  #  of  rows  in  taxget  */ 

kk  cols->re  [int_!tiax,index(cols)]  <=  target*‘>cols  /♦  max(cols)  <=  #  of  cols  in  target 
&&  rows->re  [int_min_inde:':(  rows)]  >  0  /+  min(rows)  >  0  */ 

kk  cols->re [int_min. index ( cols )]  >0  /+  min(cols)  >  0  ♦/ 

kk  SI2E(rows)  ^  SIZE(col.s)  ==  SI2E(source)  )  /♦  #  of  elements  indexed  in  target  =  #  of  elemer 

f 

int_cmplx_promote( target ,  source) ; 

r  =  rows->re; 

c  =  cols“>re: 

sr  =  source->rows ; 

tr  =  target->rows ; 

for  (i  =  0;  i  <  SIZE(rows):  i-^+) 

for  (j  =  0;  j  <  SIZECcols);  j-^^) 

target->re[r Ci]«l  +  cCj]-!  +  tr]  =  source->re[i  +  j  *  sr]  ; 
if  (target->type  ==  CHPLX); 

target->im[r [i] -1  +  c[i]~l  *  tr]  =  source-->im [i  +  j  *  sr]  ; 

> 

else 

i 

//  error:  dimension  mismatch 

error(" int_assign :  dimension  mismatch"): 

> 

if  (rows  !=  NULL.  cols  “=  NULL)  /*  target(rows,  :)  =  source  ♦/ 

rows  =  int^real ( rows ) ;  /♦  Only  real  integer  indicies  ♦/ 

/♦  make  sure  dimensions  match  */ 

if  (rows->re[int_niax_iiKlc*x(rows }]  <=  target ”>rows  /*  max  (rows)  <=  #  of  rows  in  target  */ 
kk  rous->re [in t_min_ index ( rows )]  >  0  /*  min(rous)  >  0  */ 

kk  target->cois  ==  sou rce“>col:-: )  /*  target  cols  =  source  cols  ♦/ 

int^cmplx^proitwu  t.:ir;'e{. ,  source)  ; 
r  =  rows“>ro: 
sr  =  soiirco->row 
tr  =  targ'a-M*>w 
for  (i  “  0;  x  *  ::  i  ZKf  :  • 'i:;- »  :  i’*) 
for  (j  -  0:  i  •  •••“IS.;  | ‘- + ) 
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target->reCr [i]-i  +  ji  ^  tr]  =  cource->reCi  +  j  *  sr]  ; 
if  (target->type  ■==  CHPLX): 

target->im [r  [i] - 1  +  i  ♦  tr]  -  soi!rce->im [i  +  j  ^  sr]  ; 

}  ’ 

> 

else 

{ 

//  error:  dimension  mismatcii 
error('*int  assign:  dimension  mismatch"); 

> 

if  (rows  ==  HULL  &&  cols  !=  MULL)  /*  target(:,  cols)  =  source  */ 

cols  =  int^real(cols) :  h  Only  real  integer  indicies  */  ^ 

/*  make  sure  dimensions  match  */ 

if  (cols->re Cint_max_inde:c( cols)]  <=  target^>cols  /*  max(cols)  <=  #  of  cols  in  target  */ 
&&  cols->reCint  min_indox Ccols )]  >  0  /*  min(cols)  >  0  */ 

kk  target~>rows”==  soi:rce->rows )  /*  target  rows  =  source  rows  V 

{ 

int_cmplx. promoted  target ,  source): 

c  =  cols~>re; 

sr  =  source->rows : 

tr  =  target->rov:s ; 

for  (i  =  0;  i  <  target->rows :  i++) 

for  (j  =  0;  j  <  SIZECcols):  j++) 

target->reCi  +  c[j]-l  »  tr]  =  source->reCi  +  j  *  sr]  ; 
if  (target->type  ==  CHrLX); 

target->im[i  +  c[j]-l  ♦  tr]  =  source->imCi  +  j  *  sr] ; 

} 

> 

else 

< 

//  error:  dimension  mismatch 

error  ("int_ass  ifii :  dimension  mismatch"); 

> 

> 

return(target ) ; 

> 

return (NULL) ; 

> 

/*  Create  a  1x1  matrix  from  a  scalar  */  .  .  . 

int  matrix  ♦int.sclZmat (IMTTYPE  re,  INTTYPE  im,  int  type) 

int.matrix  ♦tmp; 

if  ((tmp  =  int^new.niatr  ix  1. 1 ,  i.  type))  !=  NULL) 

tmp->reC0]  =  re; 
if  (type  ==  CHPLX) 
tnip->im  [O]  =  iiii ; 

> 

ret urn (tmp); 

> 


ll.(i  I.IS’IMI 

/♦  Header  t'ilf  I'oi  rrtak'':!  i;; t  ♦/ 

/♦  Usvige:  f.g.  ..ietoi!’'' int  ,  :<  )  der'if(char  >,x)  ♦/ 
#define  deri?  r' 1. 1  ,  x  /  t  (  (  ty p.- ♦ )  ( :c ) ) 
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typedef  struct  data  DATA 
typedef  struct  list  LIT.T 
typedef  struct  prop  PRO!" 


struct  data  { 

void  *data;  /+  space  for  iis t->ueiitrie3  instances  of  data  */ 

DATA  ♦next;  /♦  next  1 is t->nentries  collection  of  data  ♦/ 

>; 

struct  prop  { 
void  *dacaptr; 
void  ♦propval; 
void  ♦propsym; 

PROP  ♦next: 

}; 

struct  list  { 
int  entrysize; 
int  nentries; 
int  erupt y^.slot s  ; 
int  nitems; 
int  ecount: 
int  f block; 

DATA  ♦fdata; 

PROP  ♦prop;  h  optional  property  list  for  this  list  ♦/ 

DATA  ♦data:  /♦  linked  list  for  the  actual  data  of  this  list  ♦/ 

DATA  *hidata;  /♦  highest  allocated  data  block  (for  efficiency)  ♦/ 


/♦  to  what  data  item  this  property  associates  ♦/ 
property  value  to  associate  with  the  data  ♦/ 

/♦  optional  symbol  (usually  char  ♦)  to  associate  ♦ 


size  of  each  data  entry  in  bytes  ♦/ 
/*  ^  entries  to  grab  per  malloc  call  */ 
empty  slots  left  in  current  data  block  ♦/ 

/=*■  total  items  saved  in  this  list  ♦/ 

/■r  where  we  are  when  reading  back  list  ♦/ 


>; 

/♦  Internal  mo-lloc  routine 
/♦^^define  MEHCKK^/ 

#ifdef  MEMCHK 

static  FILE  ^memfp  =  NULL: 

#endif 


/ 


/*  Function  prototypes/declarat ions  */ 

LIST  ♦makelist ( int  esize,  int  nentries); 

void  ♦putproplist(LIST  ♦list,  void  ■^^dataptr,  char  ♦propsym,  void  ♦val) ; 
LIST  ♦getproplistCLIST  ’'‘list,  void  ^dataptr,  char  ♦propsym); 

LIST  *f indprop(LIST  »list»  char  ’^propsym); 

LIST  ♦poplist(LIST  ♦list): 
void  ♦toplist (LIST  *list): 
void  ♦appendlist (LIST  +list,  void  *data) ; 
int  list  index (LIST  ♦list); 

void  ♦pappendlist (LIST  ♦list,  void  ^data,  char  ♦propsym,  void  ♦val); 

void  *pushlist (LIST  ♦list,  void  ♦data); 

void  *f  etchlist  (LIST  ♦list,  int  nd:<); 

void  rewindlisc (LIST  ♦list); 

void  *walklist (LIST  ♦list); 

void  ♦mallocl ist (LIST  ^list,  int  size); 

int  freelist (LIST  *list); 

int  gclistCLIST  ’^list); 


11.7  LIS'l'-.C 


/* 


makelist-  list  man 
RF  Starr 

26?D  Valley  Field 
Suuarf.and,  TX  77^17 


agcmeut  j>ac 
Dr. 


# include  <:> tdio.h> 

# inc  1  ud  o  <  s  t  d  1  i  b  .h  * 
#incliid«f  <  n  Ida  rg  .  h  • 
#includ«:  e:-.  I  r  i  iig  .  h  ' 
#includ*'  *'  I  i  sr  .  h*' 
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/*#define  DEBUG •♦'/ 

#ifdef  DEBUG 
#define  DebugCx)  x 
#else 

#defiiie  Debug(x) 

#eiidif 

static  void  ♦imallocCint  size) 

void  *ptr  =  mallocCsize) : 

#ifdef  HEMCHK  ^  . 

if  (Imenifp)  memfp  =  f  opeii( ‘'lueminf  o"  ,  "W* ;  ; 

#endif 

if  (iptr) 

fprintf (stderr , ’‘mctlloc  error:  no  free  memory  leftAn'*); 
f flush(stderr) ; 

} 

#ifdef  MEMCHK 

fprintf  (memfp , ’**/,x  mcillocXn”  ,  ptr .) ; 
fflush(memf p) ; 

#endif 

return  ptr: 

} 

static  void  ’^if ree{^void  •*addr) 

free(addr): 

#ifdef  MEHCHK 

fprintf  (memfp ,  ’’V.x  f reeXn”  ,  addr ) ; 
f flush (memfp ) : 

#eiidif 

/♦  Build,  initialize,  and  return  an  empty  list  ♦/ 

LIST  *makelist ( int  esize,  int  nentries) 

^  LIST  *list  =  (LIST*)inialloc(sizeof (LIST)+sizeof (DATA)+esize*neiitries); 
void  *dp  =  imalloc(sizeof (DATA)+esi2e*nentries) ; 
if  (!list  II  !dp)  return  HULL: 

list->datci  =  (DATA  +)dp;  ■  ' 

list->data~>data  =  (char  +)dp+  sizeof (DATA) ; 

list->entrysi2e  =,  esize; 

list->nentries  =  nentries: 

list-*>empty_£lots  =  nentries: 

list->nitems  =  0; 

list->ecount  =0; 

list-'>f  block  =  0; 

list->fdata  =  NULL; 

list->prop  =  (PROP  ONULL; 

list->hidata  =  list->data: 

list->data->next  =  NULL: 

return  (void  *)list: 

/*  Put  items  on  property  list  for  this  data  item.  Propsym  is  the 

property  symbol,  and  val  is  a  pointer  to  a  ^static_  are  where  the 
data  for  this  property  resides. 

♦  / 

void  +putpropl  ist(  i.LST  ‘lisi,  void  ♦dataptr,  char  *propsyni,  void  *val) 

PROP  ♦newprop  -  (.Pkiir  O  im:.  Hoc  (sizeof  (PROP) ) ; 

PROP  ♦topprop  =  1  if.i ->pf-M'; 
if  (!lisr.)  roturn  Mni.L: 
if  (!newprop)  return  NULl.; 
neuprop- :*dat:ipt t  -  ‘!:ita|'»t  r; 
n e w  pr o  p  -  -•  \'>  r  o  j'- : :  y  m  -•  j  •  t  p r.  y  m : 
newproji- '•{•)r  oj*v:»  1  =  ''al: 
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newprop*->n%x  c  =  copprop; 
list->prop  =  newprop; 

> 

/♦  Read  an  itetn  off  of  the  property  list  for  a  particular  data 

item.  NULL  returned  if  there  is  none, 

*/ 

LIST  *getproolist (LIST  '►list,  void  ♦clataptr,  char  ♦propsym) 

{ 

PROP  ♦pi- 

void  ♦  propvcil  =  .NULL; 
if  (!list)  return  NULL; 
p  =  list~>prop: 
while  (p)  { 

int  fsym  =  ! strcmp(p->propsym,propsym) ; 

if  ((Idataptr  Sck  fsyrn)  ii  (p->dataptr  ==  dataptr  &&  fsym))  { 
propval  =  p">propval; 
break; 

> 

p  =  p->n6Xt; 

} 

return  prooval; 

> 

/♦  Find  data  item  associated  v;ith  a  property  name  ♦/ 

LIST  *f indprooCLIST  ♦^li.st,  cViar  =^oropsym) 

PROP  *p; 

if  (Hist)  return  NULL; 
p  =  list“>prop; 
while  (p)  { 

if  ( ! strcmp(p->propsym , propsym) )  return  p->dataptr; 
p  =  p->next; 

> 

return  NULL; 

> 

/♦  Append  data  to  the  specified  list  ♦/ 

static  void  whereisCLIST  ♦list,  int  ndx,  int  ♦walk,  int  *put) 

i 

♦walk  =  ndx  /  list~>nentr ies ; 

♦put  =  ndx  7*  list“*>nentries ; 

> 

/♦  Remove  last  entry  on  the  specified  list...  adjust  struct  accordingly  ♦/ 
LIST  *poplist (LIST  ♦list) 

DATA  ♦org; 
void  ♦dp  =  NULL; 
unsigned  char  ♦data; 
int  put : 

if  (Hist)  return  MULL; 
if  (  His t~>nitems )  return  dp; 
org  =  1  ist-'^data  ; 
list->enipr.y„slotsi-f- : 
list->ni terns — ; 

if  (list->ompty_:;Lors  ==  1  is  t“>nentr ies  ) 

{ 

while  v.org->rtex  t )  =  OL*g->next; 

put  =  1  ist~>ui  r.p:n;:  7  1  L s  t->nen trios  ; 

data  =  (unsigned  cliar  ♦)org->data; 

dp  =  (void  ♦ j (data ► (1  ist->entrysize ♦put )) ; 

if  (org“>next- ,)  i ft  «.‘e(ory.-*>ne:<t } ,  org“>next  =  NULL; 

1  is  t-'^h  idar  a  -  (.i/; 

} 

return  dp: 
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/*  calculate  data  pointei*  for  the  ndx  entry  ^ / 
static  void  *calcdp(LIST  ♦^list,  int  ndx) 

{ 

DATA  *pdata; 
unsigned  char  *dp; 

int  size  =  (list)  ?  list->entrysize  :0; 
int  max  =  (list)  ?  lir.n->nitems  :  0; 
int  walk, put; 

if  (!list  II  ndx  >=  max)  return  (void  ♦)HULL; 

whereis  (list , ndx  ,S:*alk,5:put) ; 
pdata  =  list->data: 
while  (walk — )  pdata  =  pdata-*>next ; 
dp  =  (unsigned  char  +)pdata->data: 
return  (void  ♦)  (dpi'(size  »  put) ) ; 

}  .  ,  .  / 

/*  Return  pointer  to  data  which  is  last  on  the  list  */ 

void  ♦toplist (LIST  ^‘list) 

{ 

void  *dp  =  NULL: 
unsigned  char  ♦data: 
int  put; 

if  (Hist  II  1 1  ist->nitenis  /  return  NULL; 
return  calccpdist ,  li3t->nitems-l ) ; 

/♦  append  a  data  item  onto  specified  list  */ 
void  *aDpendlis t ( LIST  ♦list,  void  ♦data) 

DATA  ♦pdata; 
void  *where; 
unsigned  char  ♦dp: 
int  walk , put , size ; 

if  (Hist)  return  NULL;  //  error:  invalid  list 
size  =  list->entrysize; 

whereis (list  ,list->ni  terns  ,-S:walk  ,2:put) ; 
pdata  =  list->hidata ; 
if  ( !list->empty_slots) 

void  ♦mera  =  imalloc(sizeof (DATA)+size*list->nentries) ; 
if  (!mem)  return  NULL: 

list->hidat<t  =  pdata  =  pdata->next  =  (DATA  ♦)mem; 
pdata->data  “  (void  ♦)((char  )mern+sizeof  (DATA) ) ; 
pdata->next  =  NULL; 
list~>empty, slots  =  Iist->nentries ; 

} 

dp  =  (unsigned  chcir  ♦)pdata->data; 
where  =  (char  ♦) (dp+ (puc+size) ) ; 
memcpy (where .data, size) ; 
list->empty_slots — : 
list->nitems++ ; 
return  where;  . 

> 

/♦  return  index  of  HF.XT  list  entry  <■/ 
int  listindex(LIST  ♦list) 

{ 

return  list ->nir.»^m:v ; 

>  ...  .  .  , 

/♦  append  a  data  it'jin  ottto  specified  list  with  property  value  information  */ 

void  ♦poppi*!i'ili:-.r.{I.i::i'  •lun.  void  -drirci,  chor  ‘propsym,  void  *701) 

< 

void  ulntaritr  -  .uj.p’Mi'!  I  i ;;  t  ( 1  int  ,da* ’.i ) : 

if  (datapti  )  put.:,i..pl  i;;t(  1  int.datapt:  .propsyin.val): 
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return  clatnptr; 

> 

/*  Just  like  appendl is t ,  .  .  new  name  for  cornpcit ibility  with  poplist  ♦/ 
void  *pushl ist (LIST  void  +data) 

{ 

if  (Hist)  return  MULL: 
return  appendli3t(list .data) ; 

>  .  .  .  , 

/*  Fetch  a  specific  data  item  off  of  list...  ndx  is  0-based  */ 

void  *f etchlist (LIST  I'list,  int  ndx) 

DATA  *pdata; 

unsigned  char  ♦dp; 

int  size  =  lis t->entry3ize : 

int  max  =  list“>nitems : 

int  walk, put; 

if  (Hist)  return  MULL; 

if  (ndx  >=  max)  return  (void  ♦)NULL; 

whereis  (list ,  ndx  ,S:walk  ,&put ) ; 

if  (walk  ==  list->fblock ; 

list->fdata  =  pdata  =  ( ii st“>fdata)  ?  list->fdata  :  list->data; 
else 
{ 

pdata  —  li3t“^data; 
list ->f block  =  walk; 
while  (walk — ) 

pdata  =  pdata->ne:*:t ; 
list->idata  =  pdata; 

> 

dp  =  (unsigned  char  ♦ )pdata*>data : 

Debug (printf  (" f  etchl ist :  getting  data  from  y,x\n’*  ,dp+(size*put) ) ) ; 
return  (char  + ) (dp+(size+put ) ) ; 

> 

/*  reset  pointer  used  by  walklist  ♦/ 
void  rewindlist (LIST  ♦list) 

if  (list)  list~>ecoiint  =  0; 

> 

/♦  walk  down  the  list,  returning  each  data  item  ’till  there  ain’t  no  more  */ 
void  ^walklist (LIST  tlist) 

{ 

DATA  *pdata; 

unsigned  char  ♦dp: 

int  size  =  lis t-> entry size ; 

int  max  =  list->nitems ; 

int  index  =  lis t->ecount ; 

int  walk, put; 

if  (!list)  return  NULL; 

dp  =  (unsigned  char  ♦)  fetchlist (list , index) ; 
if  (!dp) 

list->ecount  "  0: 
else 

list“>ecount4‘  ; 

return  ( I  ist->ecor.iird  V  ('void  ♦jdp  :  (.void  ♦)NULL; 

> 

/*  malloc  size  bytes,  .’lud  add  saddress  of  malloced  space  to  the  list  ♦/ 
void  +mallc)cl ist ( I.IST  *li::t,  int  size) 

{ 

void  ♦dp; 

if  (ilist)  return  MULL; 
dp  =  iiual  1  (  3  i  ze  )  ; 

if  (dp)  ap['**:Kl  I  l::1.  (  I  i  ::t  ; 

return  dp; 


NAWCADWAR-95005-4.5 


285 


/*  Free  up  all  malloced  data  associated  with  the  specified  list  */ 
int  freelistCLIST  ♦list) 

fldist.OJ; 

/♦  garbage  collect  list. .  .  assuiue  all  data  in  list  is  malloced  ptrs  */ 
int  gclistfLIST  ♦list) 

{ 

fl(list,i): 

/*  Free  the  list  up.  If  freedp  !=  0,  free  each  data  pointer  as  veil  */ 
static  int  fKLIST  ♦list,  int  freedp) 

•C 

DATA  *pdata,*ppd; 

PROP  *p  =  list->prop; 
if  (llist)  return; 
pdata  =  li£t->data; 
if  (freedp) 

{ 

void  *dp: 
rewindlistClist) : 
while  rdr^swalkl istC  1  ist. ) ) 
if ree(  (char 

}  ■  , 

/*  free  all  malloced  dar^a  'f / 

while  (pdara) 

•C 

DATA  *nex*  =  pdata->uext; 
if ree(pdata) ; 
pdata  =  next; 

/*  free  all  malloced  property  info  +=/ 
while  (p) 

PROP  =  p->next; 

if ree(p) :  - 

p  =  n; 

> 

ifreedist.)  ; 

/♦  given  a  list  of  functions,  invoke  the  function  with  the  specified 

property  tag  with  the  arguments  supplied. 

i/ 


H.8  MATKMX.ll 


t * >  inacrix.h 

/*  Gauss  Machine  High-Level  API  */ 

#ifndef matrix. h  /♦  Include  only  once 

#define  ..matrix.h 

/*  Calulates  the  niiinbctr  if  elements  in  matrix  a  ♦/ 

#defin€  SIZECa)  C(a>->rowr.  ♦  (a)->cols) 

/*  Are  a  and  b  of  tluf  uamo  dimensions?  ^  \  \ 

#define  EQDIH(a.  b)  (  (a->rows  ==  b->rows)  kk  (a->cols  ==  b->cols)  } 

/*  Complex  multiply «  (a  ib)  =  (c  +  jd)  ♦  (d  +  je)  ♦/ 

#define  cmulUn.  b.  c.  d.  o.  f):  {  n  =  (c)  ♦  (e)  -  (d)  ♦  (f):  b  =  (c)  *  (f)  +  (d)  ^ 
/♦  Complex  magnirnd-;  ♦/ 

#define  s*.abs\a,  !»)  :*.-[rt(((a)  ♦  (a)  *  (Ij)  ♦  (b))) 


(e);  } 
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/*  int  crnplx^promo  to  (matrix  matrix  ♦b) 

description: 

Promotes,  if  necessary,  th»-:  operands  a  and  b  to  complex  matrices,  that  is, 

if  either  a  or  b  is  compl«;:<  then  both  a  and  b  are  converted  to  complex  matrices. 

arguments: 

matrix  ♦a,  +b  =  matrices  to  be  promoted 
returns : 

int  =  0  if  successftil 

-1  if  malloc  failed 
usage: 

res  =  cmplx.promote(a ,  b) ;  //  complex  promotes  a  and  b,  OK  if  res  ==  0 

see  also: 

op_check() 

*/ 

int  cmplx_promote(matrix  +a,  matrix  ♦b) ; 

/*  int  op_check(matrix  ♦a,  matrix  *b) 
description: 

Check  field  type  and  dimensions.  First  a  and  b  are  complex  promoted  by 
cmplx_promote( ) .  Returns  CGi^iP  if  a  and  b  have  the  same  dimensions. 

Returns  COMP  |  SCAL  if  either  a  or  b  is  a  scalar.  In  addition,  if  a  and  b 
are  complex,  CMPL.X  is  ORed  to  the  returned  value  otherwise  CMPLX  is  ORed  to 
the  returned  value.  Thus,  if  type  =  op_check(a,b) ,  then  (type  &  CMPLX)  will 
be  true  if  either  a  or  b  is  comple:-:,  (type  &  REAL)  will  be  true  if  both  a  and 
b  are  real,  (type  &  COMP)  will  be  true  if  dimensions  match  and  if  a  or  be  is 
a  scalar,  (type  &  SCAL)  will  be  true  if  a  or  b  is  a  scalar, 
arguments : 

matrix  *a,  *b  =  matrices  to  be  checked 
returns : 

int  =  whose  bits  are  set  according  to  the  description  above, 
usage: 

type  =  op_check(a,  b) ;  //  checks  dimensions  of  a,  b.  Bits  will  be  set  in  type 
//  according  to  the  description  itbove 
see  also: 

cmplx_promote( ) ,  mul_check() 
note: 

op_check()  is  used  by  add(),  pmul(),  pdiv() 

*/ 

int  op_check(matrix  +a,  matriic  *b) ; 

/*  int  mul^check (matrix  ♦a,  matrix  *b) 
description: 

Check  field  type  and  dimensions.  First  a  and  b  are  complex  promoted  by 
cmplx_promote( ) .  Returns  COMP  if  a  and  b  have  the  same  dimensions. 

Returns  COMP  1  SCAL  if  either  a  or  b  is  a  scalar.  In  addition,  if  a  and  b 
are  complex,  CHPLX  is  ORed  to  the  returned  value  otherwise  CMPLX  is  ORed  to 
the  returned  value.  Thus,  if  type  =  op_check(a ,b) ,  then  (type  a  CMPLX)  will 
be  true  if  either  a  or  b  is  complex,  (type  &  REAL)  will  be  true  if  both  a  and 
b  are  real,  (type  &  COM?)  will  be  true  if  dimensions  match  and  if  a  or  be  is 
a  scalar,  (type  &  SCAL)  will  be  true  if  a  or  b  is  a  scalar, 
arguments: 

matrix  ♦a,  mat-rices  to  be  checked 
returns : 

int  whose  bits  are  .ser  according  to  the  description  above, 
usage: 

type  =  mul.check(a,  b)  ;  //  checks  dimensions  of  a,  b.  Bits  will  be  set  in  type 
//  according  to  the  description  above 
see  also: 

cmplx_promote( ) .  op_chock(  ) 
note: 

mul_check()  is  us-d  by 

*/ 

int  mul_check  (mat  r  i ♦;!,  matri.x  +b); 

/*  matrix  ^sclOm.at ( P'l.OATTYPE  re.  FLOATTYPE  im.  int  type) 
description : 

Create  a  1x1  mat  i  i  irann  a  s ralar 
arguments : 

FLOATTYId-1  t  »• .  im  i  ma:';  ina  t  y  p:u  I  oT  matrix 
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int  type  RFIAL  if  re-H  or  CH!'!.X  if  compie/. 

lllViT*  1x1  matrix  vith  re  ar.  real  part  and  im  as  imaginary  part  (if ’compler) 
r=®scl2mat(4.7.  1.1.  CHPLX);  //  m  is  a  I’/.l 

m  =  scl2mat(4.7,  1.1,  REAL);  //  m  is  a  1x1  real  matrix.  m(l)  -  4.7 

matrix  *scl2mat(FL0ATTYPE  re.  FLOATTYPE  im,  int  type): 

/******  +  **  +  **-4^*4c  +  ’i*  Memory  mrinagement  of  matrices  ************* 

/*  matrix  ♦‘new  matrix  (int  rows,  int  cols,  int  type) 

to  get  a  temporary  matrix  (which  will  be  freed  by  kill.temp.listO 
or  close_GM( ) ) . 

int  rows,  cols  dimensions  of  m«itrix  to  be  allocated 

int  t?pe  type  of  matrix,  CHPLa  for  a  complex  matrix  and  REAL  for  a 

real  matrix 

matrix  of  the  requested  size  and  type.  NULL  if  out  of  memory. 
mat^=  new_matrix(3.  5.  CHPLX);  //  Allocate  memory  for  a  3x5  complex  matrix 
lopy^ml?kx(),  new.tempO.  copy.tempO,  kill_matrix() ,  kill_temp_list() 

!f the  user's  responsibility  to  free  any  matrix  that  has  been  allocated  with 
new^matrix  (with  kill^matr ix  ) . 

matrix  *new_matrix(int  rows,  int  cols,  int  type); 

/*  void  kill_matrix(r.iatrix  »m) 

FreJfSSioJy  used  by  m.  Noce  that  m  should  have  been  allocated  with  new_matrix() 

ll  ^^^teiporarv  .matrix,  that  is.  allocated  explicitly  or  implicitly  with 
iL!temp()  or  copyltemp.  then  kill.temp.listO  should  be  used  instead  of 
kill.matrixO . 

to  b,  .uot  h..o  boon  nlloonted  nith  now.matrinO 

or  copy_matrix( ) 
returns; 
nothing 
usage: 

kill.matrix(A) ;  //  Free  memory  allocated  for  A 

lopy!ml?rix(),  new.tempO .  copy_temp().  new_matrix() .  kill_terap_list() 

S^must  have  been  allocated  explicitly  or  implicitly  with  new.matrixO 
or  copy  matrix 0 

void  kill.matrix(matr IX  ’^m); 

/*  matrix  tcopy^matr i;c (matrix  '♦'•source) 

snSrifo^oi,,  of  -b.  ..otrln  tonrc.  Tho  copy  is  nllocat.d  »lth  neb.satrUO. 
5"r;L;  u'is  tb.-  utof,  v..p<.nslbilit,  to  Use  oopy.tompO 

to  get  a  temporary  macri.x  (which  will  be  freed  by  kill_temp_list() 

or  close_GM( ) ) . 
arguments: 

matrix  ♦source  matrix  to  be  copied 

£ltri5''i.  copy  of  sourco.  HULL  if  out  of  memory. 

rew®rcopv.matrix(oLU;  //  copy  the  matrix  old  to  the  matrix  new 

Mli::ma?rix(  ).  .vf..- .tomp-.  .  co;.y  .t.,m:p( )  .  nov;.matrix(  )  .  kill.temp.listO 
note: 
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It  is  the  uzar^z  respoii::.  i  !,•  i  1.  i  cy  to  fi'ou  any  matrix  that  has  been  allocated  uith 
copy_matrix  kill^mair i . 

♦/ 

matrix  *copy„matrix(mati-ix  ^source); 

/*  matrix  *ne’-j_tenip(int  rows,  int  cols,  int  type) 
description : 

Allocates  memory  for  a  temporary  matrix  with  dimension  rows  and  cols  and 
of  type  type. 

Note  that  it  is  the  user’s  responsibility  to  free  this  matrix.  To  free  ALL 

temporary  matrices,  use  kill^temp.list ( )  or  close_GM(). 

arguments: 

int  rows,  cols  dimensions  of  matrix  to  be  allocated 

int  type  type  of  matrix,  CHPLX  for  a  complex  matrix  and  REAL  for  a 

real  matrix 
returns : 

matrix  *  matrix  of  the  requested  size  and  type.  NULL  if  out  of  memory, 
usage: 

mat  =  new^tempO,  S.  CHPLX);//  Allocate  memory  for  a  temporary  3x5  complex  matrix 
see  also: 

kill_matrix( ) ,  copy^matrix ( / ,  copy_temp(),  new_matrix( ) ,  kill_temp_list () 

*/ 

matrix  *new_temp( i:U-  rows,  iut  cols,  int  type); 

/*  matrix  *copy_temp(niatr is  ♦source') 
description: 

Returns  a  copy  of  the  matrix  source.  The  copy  is  allocated  with  new.tempO 
and  therfore,  is  a  temporary  matrix. 

To  free  ALL  temporary  matrices,  use  kill_temp_list ( )  or  close_GM(), 
arguments : 

matrix  ^source  matrix  to  be  copied 
returns : 

matrix  *  copy  of  source.  HULl.  if  out  of  memory, 
usage: 

new  =  copy_temp(cld) ;  //  copy  the  matrix  old  to  the  temporary  matrix  new 

see  also: 

kill_matrix( ) ,  copy.matrixC ) .  new_temp(),  new_matrix() ,  kill_temp_list () 

*/ 

matrix  *copy_temp(matrix  ▼source); 

/*  void  kill^temp^list (void) 
description: 

Frees  memory  allocated  by  ALL  temporary  matrices.  The  temporary  matrices  are 

allocated,  explicitly  or  implicitly,  with  new^tempO  or  copy_temp, 

arguments: 

none 

returns : 

nothing 

usage: 

kill.temp^list 0 ;  //  Free  memory  allocated  by  all  temporary  matrices 
see  also: 

kill^matrix ( ) .  copy  ..matrix () ,  nev_temp(),  new_matrix() ,  copy_temp(),  close_GM() 

*/ 

void  kill_temp^list(void) : 

/*  init_temp_list  (voi'.I ) 
description : 

Initialize  the  list  foi  allocation  of  temporary  matrices 

arguments: 

none 

returns : 

int  NOERR  if  alright,  -1  if  our  of  niemory 
usage: 

err  =  init_r i xst {  )  ;  //  Initialize  temp  matrices,  inspect  err  for  errors, 
see  also: 
init_GH( ) 
note: 

init_temp_l  ist  V )  i::  n-'iru.illy  called  from  initGHO; 

*/ 

int  init_temp_  1  i;:t(  >/-  id  )  : 
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/*  matrix  ♦real (mac- ivix  ♦mat; 
description: 

Returns  a  matrix  contviiuing  the  real  pare  of  mat 
arguments: 

matrix  *mat  input  matrix 
returns : 

matrix  *  real  part  of  iiuat 

usage:  . 

xeal.part  =  real(cmplx_niatri:'c)  j  //  real_part  =  Re Lcmplx_matrixJ 
MATLAB  equivalent: 

»  real.part  =  reaKcmplx^matrix) ; 

*/ 

matrix  *real(matrix  *mat): 

/*  matrix  *imag (matrix  ♦mtit; 
description: 

Returns  a  matrix  containing  the  imaginary  part  of  mat 
arguments : 

matrix  *mat  input  matrix 
returns : 

matrix  *  imagintiry  part  ot  mat 

usage:  . 

im.part  =  imag(cmplx_iruitrix; ;  1/  im.part  =  ImLcmplx^matrixJ 
MATLAB  equivalent: 

»  im.part  =  iniag(cmplx.matrix) ; 

*/ 

matrix  *imag(matrix  >mat); 

/*  int  max.index (matrix  *ma.t) 
description: 

Return  index  to  maximal  element  of  mat 
arguments : 

matrix  *mat  input  matrix 

returns :  .  ,  , 

int  index  to  the  maximax  element  oi  mat 

usage: 

maLX_i  =  max.index(mat ;  //  max(mat)  =  matCmax_i] 

MATLAB  equivalent: 

»  max.i  =  find (mat  ==  max(mat ( : ) ) ) ; 

♦/ 

int  max_index(matrix  ♦mat); 

/*  int  min_index (matrix  ♦mat) 
description: 

Return  index  to  minimal  element  of  mat 
arguments : 

matrix  ♦mat  input  matrix 

returns :  .  ,  ^  ^ 

int  index  to  the  minimal  element  of  mat 

^sage: 

min_i  =  min.index(mat ) ;  //  mir.(mat)  =  matCmin.i] 

MATLAB  equivalent:* 

»  min.i  =  find (mat  ==  min(mat ( : ) ) ) ; 

♦/ 

int  min_index(iuatrix  ♦mat): 

/*  matrix  *miniis (matrix  ♦mat) 
description: 

Negates  elements  of  mat 
arguments : 

matrix  *mat  input  matrix 
returns: 

matrix  *  the  negated  input  matrix 
usage: 

minus_A  =  ininus(A):  //  tninus^A  =  -A 
MATLAB  equivalent: 

»  minus^A  =  -A: 

*/ 

matrix  ♦minus  (matr  i  :<  Mnat )  ; 

/*  matrix  ♦  c o n j  ( nui t :  i  » ma t ) 
descript  ivin : 
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conjugates  elements  of  mat. 
arguments : 

matrix  +mat  input  matrix 

returns :  .  . 

matrix  *  the  conjugated  input  matrix 

usage : 

conj_A  =  conj(A);  //  conj^A  =  -A 
MATLAB  equivalent: 

»  conj.A . =  conj (A) ; 

*/ 

matrix  +conj  (matrix  +inat); 

/*  matrix  ♦add (matrix  -^a,  matrix  ♦b) 

description : 

adds  matrices  a  and  b 

arguments : 

matrix  *a,  b  input  matrices 


re  irns .  «  .  «  r  *  • 

matrix  *  the  sum  ox  a  and  b,  MULL  ii  error 
usage: 

sum  =  add(a,  b) ;  //  sum  =  a  +  b 
MATLAB  equivalent: 

»  sum  =  a  +  b : 

*/ 

matrix  ♦add(matrix  '^a,  matrix  =*b) : 

/*  matrix  *pmuT(matrix  ^a,  matrix  ♦b) 
description: 

pointwise  multiplication  of  matrices  a  and  b 
arguments : 

matrix  *a,  b  input  matrices 

matrix^*  the  pointwise  product  of  a  and  b,  MULL  if  error 
usage : 

pprod  =  pmul(ci,  b)  :  //  pprod  =  a  .♦  b 
MATLAB  equivalent: 

»  pprod  =  a  .  b : 

*/  V 

matrix  ♦pmul(matrix  -^a,  matrix  ♦b); 

/*  matrix  ♦pdiv(matrix  ♦a,  matrix  •^‘b} 
description : 

pointwise  division  of  matrices  a  and  b 
arguments: 

matrix  ♦a,  b  input  matrices 

matrix  ♦  the  pointwise  division  of  a  and  b,  NULL  if  error 
usage : 

pprod  =  pdiv(a,  b) ;  //  pdiv  =  a  ./  b 
MATLAB  equivalent: 

»  pprod  =  a  ./  b; 

*/ 

matrix  *pdiv(matrix  ♦a,  matrix  ♦b) ; 

/*  matrix  +mul (matrix  ♦a.  matrix  ♦b) 
description: 

multiplication  of  matrices  a  and  b 
arguments: 

matrix  ♦a,  b  input  matrices 
returns : 

matrix  ♦  the  product  of  a  and  b,  MULL  if  error 
usage : 

prod  =  pmuKa,  b)  ;  //  pprod  =  a  *  b 
MATLAB  equivalent: 

>>  prod  =  a  ♦  b: 

*/ 

mat r i  x  ^  mu  1 C  ma  i r  i  ;<  ♦  a  .  ma  t  r  *  ♦  L )  ; 

/*  matrix  i  own  (nia*:  :  »a,  luatrix 

description : 

appends  b’s  l--.  a 
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arguments: 

matrix  *‘Zi,  b  input  matrict.'S 
returns: 

matrix  *  [n;  b] ,  NULL  if  urror 
usage: 

c  =  appendrows (a,  b) ;  //  c  =  [a;  b] 

MATLAB  equivalent: 

»  c  =  Ca ;  b]  ; 

matrix  ^appendrows (matrix  ♦a,  matrix  *b; ; 

/*  matrix  *appendcols(macrix  *a,  matrix  *b) 
description: 

appends  b's  columns  to  a 
sirguments: 

matrix  *a,  b  input  matrices 
returns : 

matrix  *  [a,  b] ,  NULL  if  error 
usage: 

c  =  appendcols(a,  b) ;  //  c  =  [a,  b] 


MATLAB  equivalent: 

»  c  =  [a,  b]  ; 

*/ 

matrix  *appendcols (matri:<  *a,  matrix  *b) ; 

/*  matrix  --^trcinspCmatrix  *mat) 
description: 

transposes  elements  of  mat.  Mote:  does  not  conjugate  elements.  Use  herm() 
for  conjugate  transpose  (her:nician) . 
arguments : 

matrix  *mat  input  matrix 

matrix^*  the  transposed  input  matrix,  NULL  if  error, 
usage: 

tran.A  =  transp(A);  //  tran_A  =  A’ 

MATLAB  equivalent: 

»  ^  Mote:  ''.*•*  not  ”  that  is,  does  not  conjugate  transpose 

see  also : 
hermO 
♦/ 

matrix  ♦transpCmatrix  ^^mat): 


/♦  matrix  *herm(matrix  *mat) 

description:  ,  . 

conjugate  transposes  elements  of  mat,  that  is,  takes  the  hermitian  of  mat. 
argument  s : 

matrix  ♦mat  input  matri.x 

matrix  ♦  the  conjugate  transposed  input  matrix,  NULL  if  error, 
usage : 

tran.A  =  transp(A);  //  tran.A  =  A'^ 

MATLAB  equivalent: 

»  A  =  A';  y*  Note:  “  ’ not  that  is,  conjugate  transpose 

see  also: 
transp  C ) 

*/ 

matrix  ♦herm(matrix  ^mat); 

/♦  matrix  ♦mf loor(maCi*ix  Maat) 

description:  .  ^  • 

truncates  elouiouts  of  mat  to  closest  smaller  integer  value,  that  is,  floor  function, 
arguments: 

matrix  ♦mar  input,  matri.x 
returns : 

matrix  *  the  "flooro'.l'*  inj;ut  jitatrix,  IHJLL  ii  error, 
usage: 

int_A  =  mfloor(.A);  //  lnt_A  -  A  ’ 

MATLAB  equivalent: 

>>  inC.A  =  tlovu(A): 
note : 
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the  output  is  still  a  f  Ivoat.  point  matrix,  even  though  the  elements  axe 
truncated  to  integers 

*/ 

matrix  ♦mfloor (matrix  +mat); 

/*  matrix  *index_rows  (matrix  -^mat,  matrix  ^ind) 
description : 

Returns  the  rows  of  mat  that  are  pointed  out  by  ind.  The  elements  of  ind  aire 
truncated  to  integers  (with  mfloor')  and  are  used  to  pick  out  rows.  That  is, 
suppose  mat  =  [12  3;  d  5  6 ;  7  3  9]  ,  and  ind  =  [3.14  1.99],  then  the  result 
would  be  a  matrix  of  the  form  [7  S  9;  4  5  6]  .  This  is  analoguous  to  the  KATLAB 
statement,  mat (ind,  :). 
arguments : 

matrix  ♦mat  matrix  to  be  indexed 
matrix  ♦ind  row  indexing  matrix 
returns : 

matrix  ♦  the  indexed  input  matrix,  NULL  if  error, 
usage: 

B  =  index_rows (mat ,  ind);  //  B  =  mat (ind,  :) 

MATLAB  equivalent: 

»  B  =  mat ( ind  ,  : ) 
see  also: 

index_cols ( ) ,  index_rows_cols( ) ,  sub_matrix() 
note : 

For  greatest  convenience,  use  sub^.m^atr  ix  ( )  for  all  indexing  purposes. 

♦/ 

matrix  ♦index_rows (matrix  ♦mat,  matrix  ♦ind); 

/♦  matrix  ^index.cols (matrix  ^mat,  matrix  ^ind) 
description : 

Returns  the  columns  of  mat  that  are  pointed  out  by  ind.  The  elements  of  ind  are 
truncated  to  integers  (with  mfloor)  and  are  used  to  pick  out  columns.  That  is, 
suppose  mat  =  [12  3;  4  5  6;  7  S  9]  ,  and  ind  =  [3.14  1.99],  then  the  result 
would  be  a  matrix  of  the  form  [3  2;  6  5;  9  8].  This  is  analoguous  to  the  MATLAB 
statement,  mat(:,  ind). 
arguments : 

matrix  *mat  matrix  to  be  indexed 
matrix  ♦ind  column  indexing  matrix 
returns : 

matrix  ♦  the  indexed  input  matrix,  HULL  if  error, 
usage : 

B  =  index_cols(mat ,  ind);  //  B  =  mat(:,  ind) 

MATLAB  equivalent: 

»  B  =  mat( • ,  ind) 
see  also: 

index^rows ( )  ,  index_rows_cols( ) ,  sub_matrix() 
note : 

For  greatest  convenience,  use  sub_rnatrix( )  for  all  indexing  purposes. 

*/ 

matrix  *index_cols (matrix  ♦mat,  matrix  ♦ind); 

/*  matrix  ♦index.rows^cols (matrix  ♦mat,  matrix  *ind_a,  matrix  ♦ind„b) 
description: 

Returns  the  rows  and  columns  of  mat  that  are  pointed  out  by  ind_a  and  iiid_b. 

The  elements  of  ind^a  and  ind_b  are  truncated  to  integers  (with  mfloor)  and 
are  used  to  pick  out  rows  and  colu-m.ns ,  respectively.  That  is, 

suppose  mar  =  [123;  45  6;  78  5],  and  ind_a  =  [3.14  1.99]  and  ind_b  =  [2.1], 
then  the  result  would  be  a  matrix  of  the  form  [8;  2]  (that  is,  elements  (3,2) 
and  (1,2)).  This  is  analoguous  to  the  MATLAB  statement,  mat(ind,a,  ind_b) , 
axguments: 

matrix  ♦mat  matrix  to  be  indexed 
matrix  tind^a  row  indexing  matrix 
matrix  ♦incLb  column  ind‘:xing  mritrix 
returns : 

matrix  ♦  the  indexed  input  mat  fix,  HULL  if  error, 
usage: 

B  =  inclex_rows_co  1,::^  m:i  t .  ind. a,  Liid.b);  //  ll  =  mat(incl.a,  ind_b) 

MATLAB  equivalitnt.  : 

>>  B  =  mat(ind_a.  iin.l.Jr) 
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index^colsTi  .  cub.m:itri.x( ) 


see  also: 
index. rows ( ) , 

note:  . 

For  greatest  convenience,  use  sub. matrix ( ;  for  all  indexing  purposes. 

♦/ 

matrix  ♦index. rows.cols(matrix  ♦mat,  matrix  *ind.a,  matrix  ♦ind.b); 

/♦  matrix  ♦sub.matrix(matrix  tmat ,  matrix  ♦rows,  matrix  *cols); 
description : 

Returns  the  rows  and  columns  of  mat  that  are  pointed  out  by  (the  matrices) 

rows  and  cols.  ,  /  .  ^  x  ^ 

The  elements  of  rows  and  cols  are  truncated  to  integers  (with  mfloor)  and 
are  used  to  pick  out  rows  and  columns,  respectively.  That  is, 
suppose  mat  =  [123;  456;  739],  and  rows  =  [3.14  1.993  and  cols  =  [2.l3> 
then  the  result  would  be  a  matrix  of  the  form  [3;  2]  (that  is,  elements  (3,2) 
and  (1,2)).  This  is  analoguous  to  the  MATLAB  statement,  niat(rows,  cols). 

To  just  index  rows,  like  MATLAB *s  mat (rows,  :),  set  cols  to  NULL.  Similary, 
to  just  index  columns,  like  MATLAB’s  mat(:,  cols),  set  rows  to  NULL.  By  using 
this  scheme  all  indexing  can  be  done  with  sub.matrixO  . 
arguments: 

matrix  *mat  matrix  to  be  indexed 
matrix  ♦rows  row  indexing  matrix 
matrix  *cols  column  indexing  matrix 
returns :  ^  . 

matrix  *  the  indexed  input  matrix,  hULL  if  error, 
usage : 

B  =  sub.matrix(mat ,  rows,  cols); 

B  =  sub.matrixCmat ,  rows,  NULL); 

B  =  sub.matrixCmat,  NULL,  cols); 

MATLAB  equivalent: 

»  B  =  mat (rows,  cols) 
see  also: 

index.rows ( ) ,  index. cols( )  ,  index.rotcs.cols C) 
note: 

For  greatest  convenience,  use  sub.matrixO  for  all  indexing  purposes. 

*/ 

matrix  ♦sub.matrix(matrix  +mat,  matrix  ♦rows,  matrix  *cols); 

/♦  matrix  ♦assign(matri:c  ♦target,  matrix  ♦rows,  matrix  *cols,  matrix  ♦source) 
description: 

Puts  the  matrix  source  into  a  submatrix  of  target  indicated  by  rows  and  cols. 
That  is,  rows  and  cols  defines  a  submatrix  of  target  (exactly  like  sub.matrixC) ) 
and  this  submatrix  is  overwx‘itten  with  data  from  the  source  matrix.  This  is 
analoguous  to  the  MATLAB  statement  target (rows,  cols)  =  source.  Needless  to 
say,  the  submatrix  of  target  and  source  must  be  of  the  same  dimensions. 

For  example,  suppose 
target  =  [l  2  3  4; 

5  6  7  8; 

9  10  11  12] , 
source  =  [13  14 ; 

15  16]  , 

rows  =  [3  2]  and  cols  =  [l  2]  ,  the  resulting  matrix  would  be 


//  3  =  mat(rows,  cols) 
//  B  =  mat (rows ,  : ) 

//  3  =  mat( : ,  cols) 


[  1  2  3  4: 

15  16  7  S; 

13  14  11  12  ] . 

If  rows  or  cols  is  MULL,  this  means  all  the  rows  and  all  the  columns  of  target. 
That  is,  target  (row:-: .:  )  =  source  would  be  coded  as 

assign(target .  rows.  NULL,  source),  and  similary,  target (rows ,: )  =  source 
would  be  coded  as  ar.sign(rarget ,  rows,  NULL,  source), 
arguments : 

matrix  ♦target  matrix  to  be  writte.n  to 
matrix  ♦rows  row  indexing  matrix 
matrix  ♦cols  column  indexing  matrix 

matrix  ♦source  matrix  whos»*  data  will  be  written  to  target, 
returns: 

matrix  ♦  copy  ot’  taigct  ,  MUI.L  if  error, 
usage: 
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ass  ign  ( target ,  col:;,  :;<’/urce)  //  target  (rows,  cols)  -  source 

ass ign( targe t ,  rows,  MULL,  source)  //  targetC:,  cols)  =  source 
assign(target ,  NULL.  col:;,  source)  //  target  (rows,  :)  =  source 
see  also: 

sub_matrix()  temp_copy() 
not  e : 

Does  not  handle  the  case  target (:,:)  =  source.  For  this  use 
target  =  temp^copy ^source ) . 

♦/  ,  , 
matrix  *assign(matrix  ♦target,  matrix  *rows ,  matrix  *0015,  matrix  ♦source); 

/♦  matrix  *range(rLOATTYFE  from,  FLOATTYPE  step,  FLOATTYPE  to); 

description: 

Creates  a  vector  like  HATLAE's  from: step : to .  If  step  is  0,  then  it  is  set  to  1. 
For  example,  ranged,  2.  7)  results  in  Cl  3  5  7],  range(3,  5)  results  in  [3  4  5]. 
arguments : 

FLOATTYPE  from  start  value 
FLOATTYPE  step  step  size 
FLOATTYPE  to  stop  value 


matrix  ♦  vector  with  elements  starting  at  from  ana  stopping  at  to, 

spaced  by  step.  MULL  if  error. 

usage: 

range(from,  step,  to)  //  from: step: to 
range (from,  0,  to'  -V  from: to 

*/ 

matrix  *range(FL0A7TY?E  from,  FLOATTYPE  step,  FLOATTYPE  to); 

/♦  matrix  ♦scl2m::t (double  re,  double  im,  int  type); 

description:  ^  ^  \  , 

Creates  a  1x1  matrix  from  the  scalar  (re  +  i*im),  if  type  is  CHPLX.  If  type  is 
REAL  the  imrtginary  part  is  ignored, 
arguments: 

FLOATTYPE  re  real  part 
FLOATTYPE  im  imaginary  part 

returns:  ,  .  .  v  r 

matrix  *  1x1  matrix  with  the  element  (re  +  j^ini).  NULL  if  error, 

usage: 

scalar^mat  =  scal2mat (3 . 14 ,  2.5,  CHPLX);  //  scalar^mat ( 1 , 1)  =  3.14  +  j*2.5 
scalar  _mat  =  scal2:uat  (3 . 14  ,  2.5,  REAL);  //  scalar^mat  ( 1 , 1)  =  3.14 

♦/  ... 
matrix  ♦scl2mat (double  re,  double  im,  int  type); 


#endif 


H.9  M.VrhMX.C’ 

#include  <math.h> 

#include  <string.h> 

#include  <stdlib.h> 

#include  "types. h** 

#include  "utils. h" 

#include  "matrix.h" 

#include  "list.li" 

#include  "conv.h" 

/*  Debugging  macro 

#define  OOPS  print :  f ‘*oo]u: :  !;d\ir’ , _ LIME^_): 

/*  Private  declaration:*.  »/ 

static  LIST  ♦  L !  i :: t ;  /♦  list  for  temporary  matrices  ♦/ 

/*  stuff  used  in  op^ch.jrh  miil^check  ♦/ 

#define  COMP  0:<4  /*  marks  compatible  dimesions  */ 

^define  SCAL  0:<S  /*  marks  one  operand  as  a  scalar  ♦/ 

#define  IMTia) 
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/♦  Promotes,  if  necessary,  the  operands  a  and  b  to  complex  matrices  */ 
int  cmplx  promote(matrix  +a,  matrix  ♦b) 

int  i; 

if  U  !=  NULL  &1'  b  !=  NULL) 

if  (a->type  ==  CHPLX  &&.  b->type  ==  REAL) 

^  if  ((b->im  =  (FLOATTYPE*)malloc(SIZE(b)  *  sizeof (FLOATTYPE)))  !=  NULL) 

b->type  =  CHPLX; 
for  (i  =  0:  i  <  SIZE(b) ;  i++) 
b->imCi]  =  0: 
return  0:  •  . 

.  > 
else 

//  error:  mcilloc  failure 

error ( "cmplx^promote :  malloc  failure'*); 

return  -1 ; 

} 

if  (b->type  ==  CHPLX  a->type  ==  REAL) 

^  if  ((a->im  =  (FLOATTYPE*)malloc(SIZE(a)  *  sizeof (FLOATTYPE)))  !=  NULL) 

^  a->typs  =  CMPLX: 

for  (i  =_0:  i  <  SIZE(a);  i++) 
a->imCi]  =0; 
return  0; 

}  . 
else 

//  error:  malloc  failure 

error C "cmplx^promote :  malloc  failure'*); 

return  -i ; 

} 

} 

> 

return  0; 

} 

/*  Check  field  type  and  dimensions.  If  a  or  b  is  a  scalar 
then  the  dimensions  are  compatible 
op.check  is  used  by  add,  pmul  */ 
int  op_check(matri:<  ^a,  matrix  ♦b) 

int  type  =  0: 
matrix  ♦tmp; 

if  (a  !=  NULL  Sck  b  *=  NULL) 

if  (a->type  ==  CHPLX  ! I  b->type  ==  CMPLX) 

/♦  Need  for  comple:-:  promotion? 

cmplx_promote(a .  b) ; 
type  !=  CMPI.X; 

} 

else 

type  1=  REAL; 

if  (a->rows  ==  b->vows  a->cols  ==  b->cols) 

type  1=  CDMP;  h  a  and  b  are  compatible  ♦/ 

if  (SlZIUb)  !  II  ;'[ZF.(a)  ==  1)  /*  a  or  b  is  scalar  ♦/ 
type  1=  ::CAL  I  COMP;  /♦  a  and  b  are  compatible  ♦/ 

> 

returnC  tyi>»! ) : 
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> 

/*  Check  field  type  and  dimencious.  If  a  or  b  is  a  scalar 
then  the  scalar  is  retnrn^id  in  are  and  aim. 
mul^check  is  used  by  mill.  +/ 
int  inul_check (matrix  ♦'a,  matrix  *b) 

int  type  =0; 
matrix  *tmp; 

if  (a  !=.  NULL  &&  b  !=  NULL; 

if  (a->type  ==  CHPLX  1  I  b->type  ==  CMPLX) 

/♦  Need  for  complex  promotion?  ♦/ 

{ 

cmplx^promote (a ,  b); 
type  1=  CMPLX; 

> 

else 

type  !=  REAL; 
if  (a->cols  ==  b->rot;s) 

type  1=  COMP;  and  b  are  compatible  */ 

if  (SI2E(b)  ==  1  I  I  SIZE(a)  ==  l)  /*  a  or'b  is  scalar  */ 
type  1=  SCAL  I  COHP;  /»  a  and  b  are  compatible  */ 

} 

return(type) ; 

> 

/****5*t***5^  +  +  +  :4c*  +  +  *^  Memory  management  of  matrices  ♦**+*******5*5*****=p**/ 

/♦  Allocates  memory  for  a  matrix  with  dimension  rows  and  cols  */ 
matrix  *new_matrix(int  rows,  int  cols,  int  type) 

i 

matrix  *mat ; 
mat  =  NULL; 

/♦  Try  to  allocate  matrix  ♦/ 

if  ((mat  =  (matrix* )malloc (sizeoi (matrix) ) )  1=  NULL) 

mat->cols  =  cols;  mat->rows  =  rows;  mat~>type  =  type; 

/*  Try  to  allocate  real  part  */ 

if  ((mat->re  =  (FLOATTY?E*)malloc(SIZE(mat)  ♦  sizeof (FLOATTYPE)) )  !=  HULL) 

if  (type  ==  CMPLX)  /*  Try  to  allocate  imaginary  pairt  */ 

•if  ((mat->im  =  ( FLOATTYPE*  )malloc  (SIZE(mat)  *  sizeof  (FLOATTYPE)  )  )  ==  NULL) 
{  /*  malloc  of  mat->im  failed,  cleanup  */ 

f ree(man->r5) ; 
f ree(mat ) ; 
mat  =  NULL; 

^  } 

else  /*  malloc  of  mat-->re  failed,  cleanup  */ 

{ 

/!  error:  malloc  failure 
error (“new^matrix :  malloc  failure”); 
free (mat ) ; 
mat  =  NULL; 

} 

else  malloc  of  mat  failed,  cleanup  */ 

{ 

//  error:  malloc  failure 
error ('‘neu_mat  rix  :  mallr>r  failiirf;”); 
return (MULL) ; 

} 

return (mat ) ; 

} 

/*  Frees  memory  l*y  :u 
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void  kill  matrix (matrix  Mu) 

if  (m  !=  NULL) 

if  (m->re  !=  HULL) 
f ree(m“>re) ; 
if  (in->type  ==  CMPLZ) 
if  (m“>im  !=  HULL) 
free(m->im) ; 

> 

}  .  , 

/*  Returns  a  copy  the  matrix  source  */ 

matrix  *copy  matrix(niatrix  ^'source) 

matrix  ♦target; 

FLOATTYPE  *tre.  +sre; 

if^((target  =  new  matrix(so>.irce->ro«s,  source-‘>cols,  source->type))  !=  HULL) 

{ 

sre  =  source-^^re; 
tre  =  target->re; 

for  (i  =  0;  i  <  SI2&(source) ;  i++) 
tre[i]  =  sreCi]  ; 
if  (source->type  ==  CMPLX) 

sre  =  source->im; 
tre  =  target->im: 

for  (i  =  0;  i  <  SIZE ( source ) ;  i++) 
treCi]  =  sreCi]  : 

} 

returnCtarget) ; 

} 

return (NULL) ; 

> 

/****:^*******^>*«  Routines  for  temporary  matrices  *★+********♦♦♦**/ 

/♦  Allocates  memory  for  a  temp  matrix  with  dimension  rows  and  cols  ♦/ 
matrix  *new  temp(int  rows,  int  cols,  int  type) 

matrix  *mat :  ' 

if  ((mat  =  new_matrix(rows ,  cols,  type))  !=  NULL) 

if  (appendlist (temp.list ,  mat)  ==  NULL) 

{ 

return(NULL) ; 

} 

} 

return(raat): 

>  .  , 

/*  Copies  matrix  m  to  a  temp  matrix  */ 

matrix  *copy  temp (matrix  ♦source) 
matrix  ♦target; 

if  ((target  =  copy .matrix (source) )  !=  NULL)  /♦  copy  source  matrix  */ 

^  il  (appeiidlistCtemp.lisc.  target)  ==  HULL)  /*  Try  to  insert  target  in  temp.list  */ 

kill.niatrix(  target ) ; 
re turn C NULL ) : 

} 

>  .  / 
return  tarvret;  /*  return  copy  */ 

} 

/*  Frees  all  mt'nu-'ty  a  I  Ly  temporary  matrices  */ 
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void  kill_cemp_iist( voici) 

matrix  +mat ; 
rewindlist (tenip^list )  ; 

while  (mat  =  (matrix* )walkli3t (temp^list) ) 
kill_matrix(mat ) ; 

} 

freelist (temp_list) ;  /*  kill  list  and...  */ 

init_temp  listO;  /*  make  a  fresh  one  */ 

y 

/*  Initialize  the  temp  matrix  list  */ 
int  init.temp_list (void) 

{ 

temp_list  =  makelist(si2eof (matrix) »  5);  /*  create  and  initialize 

temp.list  */ 

if  (temp.list  !=  MULL) 
return  NOERR; 
else 

return  -1: 

} 


/*:te4:**^**%*+^***  +  *  +  t  HatTlX  tllgebra  +  +  +  +  +  +  + 

/*  Takes  the  the  real  part  of  m  +/ 
matrix  *real(matrix  =^m) 

matrix  *real; 

if  ((real  =  copy_temp(m) )  !=  NULL) 

if  (real->tyDe  ==  CHPLX) 

{ 

real~>type  =  REAL; 
if  (real->im  !=  MULL) 

{ 

f ree(real->im) ; 
real~>im  =  flULL; 

> 

} 

> 

return(real) ; 

>  . 

/*  Takes  the  the  imaginary  part  of  m  */ 
matrix  *imag(matrix  *in) 

matrix  *imair; 
int  i; 

if  ((imag  =  copy_temp(m) )  !=  NULL) 
if  (imag~>type  ==  CMPLX) 

{  /*  if  complex  get  rid  of  real  part  ♦/ 

if  (imag->re  !=  NULL) 
f ree( imag->re) : 

imag*->re  =  imag~>im;  /♦  make  old  imag  part  be  new  real  part  */ 
imag“>im  =  NULL;  /*  clean  up  */ 

else 

{  /♦  if  not  complex,  the  imag  part  is  zero  */ 

for  (i  =  0;  i  <  3IZE(imag);  i++) 
imag->re[i]  =  0; 

} 

imag->type  =  REAL; 

} 

return  ( imat*;)  ; 


/+  the  imag  part  is  real  */ 
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> 

/*  Return  index  to  mnximnl  element  of  m  */ 
int  max.index Matrix  Mn) 

< 

int  i,  mx; 

FLOATTYPE  ♦re,  ♦im; 

Bx  =  0 : 

if  (m  !=  HULL) 

{ 

re  =  m->re; 
im  =  m->im; 
if  (m->type  =  REAL) 

for  (i  =  1:  i  ^  SIZE(m) ;  i++) 

if  (reCi]  >  reCmx]) 
mx  =  i : 

> 

> 

else 

<  .  .  ■  ,  ^  .  s 

for  (i  =  1:  i  <  SIZE(m);  i++) 

^  if  (cabs(reCi].  imCi])  >  cabs(reCmx] ,  imCmx])) 
mx  =  i ; 

> 

> 

> 

returii(mx); 

} 

/*  Return  index  to  minimal  element  of  m  */ 
int  min.index (matrix  *m) 

< 

int  i,  mi; 

FLOATTYPE  ’►re,  *im; 
mi  =  0; 

if  (m  !=  NULL) 

{ 

re  =  m->re; 
im  =  m->im; 
if  (m->type  ==  PwEAL) 

for  (i  =  1;  i  <  SI2E(m) ;  i++) 

if  (reCi]  <  re[mi] ) 
mi  =  i ; 

.  > 

} 

else 

for  (i  =  1;  i  <  SIZE(m);  i++) 

if  (cabs(re[i],  imCi])  <  cabsCreCmi],  im[mi])) 
mi  =  i : 

} 

> 

> 

return (mi); 

> 

/*  negates  m  ♦/ 
matrix  ♦minus (matrix  ♦m) 

int  i,  sine; 
matrix  ♦neg; 

FLOATTYPE  M'e.  Mm; 
if  (m  !=  MULL) 
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if  fCneg  =  copv«C.oinp(m ; ;  !=  MULL) 

{ 

re  =  neg‘*>re; 
im  =  neg“>im; 

for  (i=0:  i  <  SIZE(m);  i++) 
re[i]  =  -reCi]  ; 
if  (m'->tyDe  ==  CHPLX) 

{ 

for  (i=0:  i  <  3IZ£(m) ;  i++) 
im[i]  =  -im[i]  ; 

} 

} 

> 

return(neg) ; 

> 

/*  conjugate  m 
matrix  *conj  (matrix 

int  i ; 

matrix  *conj ; 

FLOATTYPE  *im; 
if  (m  !=  NULL) 

if  ((conj  =  coov  teino(ia))  !=  NULL) 

{ 

im  =  conj~>im; 
if  (m~>type  ==  CHPLX) 

{ 

for  (i=0;  i  <  SIZ£(m) ;  i++) 
im[i]  =  -im[i]  ; 

> 

> 

} 

return(con j ) ; 

> 

/★  addition  */ 

matrix  ♦addCmatrix  ’►a,  matrix  ♦b) 
matrix  *sum; 

FLOATTYPE. +sre,  +sim,  +are,  +aim,  *bre,  *bim; 
int  i,  type; 
sum  =  NULL; 

if  (  (type  =  op  check(a,  b))  &  COMP) 

/*  a  and  b  are  compatible  ♦/ 

if  (type  &  SCAD  /♦  either  a  or  b  is  a  scalar  */ 

{ 

if  (SIZ£(b)  ==  1)  b  is  a  scalar  */ 

{ 

are  =  b->re;  aim  =  b->im;  interchange  a  and  b  */ 
bre  =  a->re:  biin  =  a->im;  /+  so  scalar  is  in  are/aim  */ 

sum  =  copy  temp(a):  /♦  copy  the  non-scalar  to  sum  */ 

} 

else 

{  /*  a  is  scalar  */ 

are  =  a->re;  aim  =  a->im; 
bre  =  b->re;  bim  =  b->im; 

sum  =  copy  temr(b) ;  / *  copy  Che  non-scalar  to  sum  */ 

} 

} 

else  /+  a  and  b  are  non-scalars  ♦/ 

{ 

are  =  a-^re;  aiio  •  a->i:u; 

1‘i'e  =  l»im  *• 
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sum  =  copy^tempMv)  ;  /♦  copy  b  to  sum  ♦/ 


/♦  if  copy  was  successful  */ 
/*  scalar  addition  ♦/ 


if  (sum  !=  NULL) 

{ 

sre  =  sum->re; 
sim  =  sum->im; 
if  (type  &  SCAL) 

^  for  (i  =  0;  i  <  SIZE(sum);  i++) 

^  sreCi]  +=  are[0];  /*  scalar  is  in  are/aim.,.  */ 

if  (type  &  CHPLX)  and  sre/sim  is  a  copy  of  non-scalar  */ 
sim[i]  aim[0]; 

} 

> 

else 

for  (i  =  0;  i  <  SI2E(sum);  l++) 

^  sreCi]  sre/sim  is  a  copy  of  b  ♦/ 

if  (type  S:  CHPLX) 
simCi]  ■^=  aim[i]  : 

> 


} 

else 

//  error:  dimension  mismatch 
error(’‘add:  dimension  mismatch"); 

> 

return(sum); 

> 

/*  pointwise  multiplication  */ 
matrix  *pmul (matrix  ♦ci,  matrix  =^b) 

{ 

matrix  *prod; 

FLOATTYPE  ♦pre,  ’^pim,  ♦are,  ♦aim,  ♦bre,  ♦bim; 
int  i,  type; 
prod  =  NULL; 

if  {(type  =  op_check(a,  b))  &  COHP) 

{ 

/♦  a  and  b  are  compatible  */ 

if  (type  &  SCAL)  /*  either  a  or  b  is  a  scalar  */ 

^  if  (SIZE(b)  ==  1)  /*  b  is  a  scalar  ♦/ 

are  =  b->re;  aim  =  b->im;  /♦  interchange  a  and  b  */ 
bre  “  a—^re ;  bim  —  a—^im;  /*  so  scalar  is  in  are/aim  */ 

prod  =  copy  cemp(a);  /♦  copy  the  non-scalar  to  prod  */ 

} 

else  .  n  / 

{  /*  a  IS  scalar  ♦/ 

are  =  a->re;  aim  =  a->im; 
bre  =  b->re:  bim  =  b->im; 

prod  =  copy  temp(b) ;  /♦  copy  the  non-scalar  to  prod  */ 

} 

else  /♦  a  ^  non-scalars  */ 

{ 

are  =  a-^'re;  aim  =  a‘->im; 
bre  =  b-^re;  bim  =  b->iin; 

prod  =  copy ^tompC b) :  /*  copy  b  to  prod  ♦/ 

if  (prod  MULL)  /*  copy  was  successful  ♦/ 
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pre  =  prod->re; 
pim  =  procl“>im; 

if  (type  Sc  SCAL)  /*  scalar  multiplication.  ♦/ 

{  /♦  scalar  is  in  are/aim  and  ♦/ 

/*  pre/pim  is  a  copy  of  non-scalax  */ 

for  (i  =  0;  i  <  SIZE(prod);  i++) 

^  if  (type  Py.  REAL)  /*  real  multiplication  */ 
pre  [i]  are[0] ; 

else  /*  complex  multiplication  */ 

preCi]  =  areCO]  ♦  breCi]  -  aim[0]  *  bimCi]  ; 
pim[ij  =  areCo]  *  bim[i]  +  aimCO]  *  breCi]; 

} 

> 


} 

else 


/+  ordinary  pointwise  multiplication  */ 


/*  pre/pim  is  a  copy  of  b 
for  (i  =  0;  i  <  SIZE(prod) ;  i++) 

^  if  (type  Sc  REAL)  /*  real  multiplication  */ 
pre[i]  *=  are[i] ; 

{  /*  complex  multiplication  */ 

preCi]  =  areCi]  +  bre[i]  -  aim[i]  *  bimCi] ; 
pimCi]  =  are[i]  *  bimCi]  +  aimCi]  *  bre[i]; 

} 


*/ 


> 


> 


} 

else 

•C 

//  error:  dimension  mismatch 
error(”pmul:  dimension  mismatch"); 

> 

return (prod ) ; 

> 

/*  pointwise  division  +/ 

matrix  *pdiv(matrix  +a,  matrix  *b) 

matrix  ♦prod; 

FLOATTYPE  *pre,  ♦pirn,  ♦are.  ♦aim,  ♦bre,  *bim,  tmp; 
int  i,  type; 
prod  =  NULL; 

if  (a  !=  NULL  &&  b  ! =  NULL) 

cmplx^promote(a,  b) ;  /*  make  sure  that  types  are  compatible  ♦/ 

if  (a~>row3  ==  b->roKs  ScSc  a->cols  ==  b“>cols) 

/♦  a  and  b  are  compatible,  ordinary  pointwise  division  */ 
if  ((prod  =  new_temp(a->rows ,  a->cols,  a->type))  !=  NULL) 

pre  =  prod->re:  pim  =  prod->im; 
are  =  a->re:  aim  =  a->im: 
bre  =  b->re:  him  =  b->im: 
if  ( prod “> type  ==  REAL) 

{  /♦  real  division  ♦/ 

for  (i  =  0;  i  <  SIZECprod) ;  i++) 


if  ==  0) 

\ 
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//  orror:  division  with  zero 
error ( "pdiv:  division  with  zero**); 
return(NULL);  /*  division  with  zero,  bail  out  •*/ 

} 

tmp  +=  tmp; 

pre[i]  =  areCi]  /  breCi]; 


/♦  complex  division  ♦/ 
for  (i  =  0;  i  <  SI2E(prod) ;  i++) 

if  ((tmp  =  cabs(breCi3,  bimCi]))  ==  0) 

//  error:  division  with  zero 
error(*'pdiv:  division  with  zero'*); 

return(WULL);  /+  division  with  zero,  bail  out  */ 

> 

trap  trap; 

pre[i]  =  (areCi]  *  bre[i]  +  airaCi]  *  bim[i3)/tmp; 
pim[i]  =  (aim[i]  *  bre[i]  -areCi]  *  bimCi]  )/tinp; 

} 


else  /*  a  or  b  have  not  same  dimensions  but  could  still  be  compatible  */ 
if  (SI2E(a)  ==  1) 

/*  a  and  b  are  compatible,  scalar  division  */ 

if  ((prod  =  new.terap(b->rows ,  b->cols,  b->type))  !=  NULL) 

pre  =  prod->re;  pirn  =  prod->im; 
are  =  a->re;  aim  =  a->im; 
bre  =  b->re;  bim  =  b->ini; 
if  (prod->type  ==  REAL) 

{  /*  real  division  */ 

for  (i  =  0;  i  <  SI2E(prod);  i++) 

if  (breCi]  ==  0) 

{ 

//  error:  division  with  zero 
error("pdiv:  division  with  zero"); 

return(NULL) ;  /+  division  with  zero,  bail  out  */ 

preCi]  =  areCO]  /  bre[i]; 

•  } 

} 

else  .  . 

{  /*  complex  division  */ 

for  (i  =  0;  i  <  SI2E(prod);  i++) 

if  ((trap  =  cabs (breCi],  bimCi]))  ==  0) 

//  error;  division  with  zero 
error('*pdiv:  division  with  zero"); 

return(NULL);  /♦  division  with  zero,  bail  out  */ 

} 

tmp  +=  tmp; 

preCi]  =  (areCO]  ^  breCi]  +  aimCO]  *  bimCi])/tmp; 
pit!i[i]  =  (aim Co]  breCi]  -  areCO]  ♦  bimCi]  )/tmp; 
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if  (SIZECb)  ==  1) 

{ 

/+  a  and  b  compatible,  scalar  division  */ 

if  ((prod  =  new_temp(a~>rows ,  a“>cols,  a->type))  !=  NULL) 

pre  =  prod->re;  pirn  =  prod“>ini; 
are  =  a->re;  aim  =  a->im; 
bre  =  b->re;  bira  =  b“>im; 
if  (prod->type  ==  REAL) 

{  /*  real  division  ♦/ 

if  (bre[0]  ==  0) 

{ 

//  error:  division  with  zero 

error("pdiv:  division  with  zero"); 

return(NULL) ;  /*  division  with  zero,  bail  out  */ 

} 

for  (i  =  0;  i  '<  SIZ£(prod);  i++) 
pre[i]  =  areCi]  /  breCO]; 

} 

else 

{  /+  complex  division  */ 

if  ((tmo  =  cabs (bre [O],  bimCO]))  ==  0) 

/ 

L 

//  error:  division  with  zero 
error "pdiv :  division  with  zero"); 

ret.urn(WULL)  :  /*  division  with  zero,  bail  out  */ 

} 

tmp  ■»=  tmp; 

for  (i  =  0;  i  <  SI2E(prod) ;  i++) 

r 

\ 

preCi]  =  (are[i]  *  breCO]  +  aimCi]  *  bimCO]  )/tmp; 
pimCi]  =  (aim[i]  *  bre  [0]  -  areCi]  *  bimCO]  Vtinp; 

}  ^ 


return (prod) ; 


/*  multiplication  */ 

matrix  *mul(matrix  matrix  *b) 

{ 

matrix  *prod; 

FLOATTYPE  ♦pre,  ♦pim,  ^are,  ’’'aim,  »bre,  ♦bim,  tmpre,  tmpim; 
int  i ,  j ,  k ,  type ; 
prod  =  NULL; 

if  ((type  =  mul_check(a,  b))  &  COMP) 

{ 

/*  a  and  b  are  compatible  */ 

if  (type  &  SCAL)  /*  either  a  or  b  is  a  scalar  ♦/ 

{ 

if  (SIZE(b)  ==  1 )  /♦  b  is  a  scalar  */ 

are  =  b->re:  aim  =  b->im;  /*  interchange  a  and  b  ♦/ 
bre  =  a->re:  him  =  a->im;  /♦  so  scalar  is  in  are/aim  */ 

prod  =  copy_r.emn(a)  ;  copy  the  non-scalar  to  prod  ♦/ 

} 

else 

{  /♦a  is  scalar  *•/ 

are  =  a->re:  aim  =  a->irri; 
bre  =  b->re;  him  =  b->im; 

]M*od  =  copy b)  ;  h  co\i]f  tlm  non-scalar  to  prod  */ 
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a  /*  a  and  b  are  non-scalars  ♦/ 

are  =  a->re;  aim  =  a->im; 
bre  =  b->re:  biin  =  b->iin; 

prod  =  nev_temp(a->rows,  b->cols,  a->type):  A  copy  b  to  prod  */ 


if  (prod  !=  NULL) 

pre  =  prod->re: 
pirn  =  prod->im; 
if  (type  &  SCAL) 
{ 


/+  copy  vas  successful  */ 


if  (type  &  SCAL)  /*  scalar  multiplication.  */ 

{  /♦  scalar  is  in  are/aim  and  */ 

/♦  pre/pim  is  a  copy  of  non-scalar  */ 

for  (i  =  0;  i  <  SIZE(prod) ;  i++) 

if  (type  &  REAL)  /*  real  multiplication  */ 
pre  Ci]  =  are  Co]  *  breCi]; 

/*  complex  multiplication  */ 
preCi]  =  areCO]  *  bre[i]  -  aimCO]  *  bimCi] ; 
pimCi]  =  areCo]  ♦  bimCi]  +  aimCO]  *  breCi]; 

> 

/*  ordinary  matrix  multiplication  ♦/ 

{  /*  pre/pim  is  a  copy  of  b  */ 

for  (i  =  0;  i  <  prod->rows;  i^*?*) 

{  /*  for  ith  row  of  prod  */ 

ii  (^yp^  ^  REAL) 

{  /*  real  multiplication  */ 

for  (j  =  0;  j  <  prod->cols;  j ++)/’*'  for  jth  col  of  prod  ♦/ 

preCi  +  j  *  prod->rows]  =  0; 
for  (k  =  0;  k‘ <  a->cols;  k++) 

{  /♦  compute  prod(i,j)  */ 

preCi  +  j  *  prod->rows]  += 

areCi  +  k  *  a->rows]  ♦  breCk  +  j  *  b->rows] ; 

J 

> . 

} 

/♦  complex  multiplication  */ 

for  (j  =  0;  j  <  prod->cols;  j++)/*  for  jth  col  of  prod  */ 

preCi  +  j  ♦  prod->rows]  =  0; 
pimCi  +  j  *  prod->rows]  =  0; 
for  (k  =  0;  k  <  a->cols;  k++) ^ 

{  /*  compute  prodCi,j;  ♦/ 

preCi  +  j  prod->rows]  += 

areCi  +  k  *  a->rows]  *  breCk  +  j  *  b->rows] 

-  aimCi  +  k  *  a->rows]  *  bimCk  +  j  *  b->rows] ; 

pimCi  +  j  prod->rous3  += 

areCi  +  k  a->rows]  *  bimCk  +  j  ♦  b->rowsj 

4-  aimCi  +  k  ♦  a->rows]  ♦  breCk  +  j  ♦  b->rows]  ; 


else 

//  error:  dimension  mismatch 
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error(**mul:  dimension  mismatch”); 

> 

return (prod) ; 

} 

/*  append  b's  rows  to  a  ♦*/ 

matrix  ♦appendrows (matrix  ♦a,  matrix  *b) 

{  .  . 
int  ai ,  bi ,  ci ,  i ,  j : 

FLOATTYPE  *cre,  '^cim,  +are.  ^aim,  ♦bre,  *bim; 
matrix  *c; 
if  (b  !=  NULL) 

i 

if  (a  ==  NULL) 

{ 

return(b) ; 

> 

if  (a->cols  ==  b->col£) 
cmplx_promote(a ,  b) ; 

if  ((c  =  new_temp(a->rows  +  b->rows,  a->cols,  a->type))  !=  NULL) 

{ 

are  =  a“>re:  aim  =  a->im; 
bre  =  b“>re;  bim  =  b->iin; 
ere  =  c->re:  cim  =  c->im; 
ai  =  bi  =  ci  =  0; 
for  (1  =0;  j  <  a“>cols ;  j++) 

for  (i  =  0;  i  <  a->rows ;  i++) 
cre[ci++]  =  are[ai++]; 
for  (i  =  0;  i  <  b->rows ;  i++) 
cre[ci++]  =  bre[bi++] ; 

> 

ai  =  bi  =  ci  =  0; 
if  (a->type  ==  CMPLX) 

for  (j  =  0;  j  <  a~>cols ;  3++) 

r 

for  (i  =  C;  i  <  a->rows;  i++) 
cim[ci-+]  =  aim[ai++] ; 
for  (i  =  0;  i  <  b“>rows ;  i++) 
cim[ci^'+]  =  bim[bi++]  ; 

> 

} 

returnCe ) ; 

} 

else 

//  error:  dimension  mismatch 
€rror("appendrow£ :  dimension  mismatch"); 

} 

> 

return(NULL) ; 

} 

/*  append  b*s  cols  to  a  */ 

matrix  ♦appendcols (matrix  ♦a*  matrix  *b) 

^  FLOATTYPE  *are,  ♦aim,  ♦bre,  ♦bim,  ♦ere,  *cim; 
int  i ,  j : 
matrix  *c; 
if  (b  !=  MULL) 

{ 

if  (a  ==  NULL) 

{ 

recnrn(b ) ; 

} 

if  (a->iow;'.  •  •  h*'^r-'‘WL*>) 
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if  ((c  s!  neM_temp(a->ro«s ,  a->col3  +  b->cols,  a->type))  !=  HULL) 

cmplx_proniote(a ,  b); 
are  =  a->re;  aim  =  a->iin; 
bre  =  b->re;  bim  =  b->ira; 
ere  =  c->re;  cim  =  c->im; 
for  (i  =  Q:  i  <  SIZE(a):  i++) 
cre[i]  =  are[i]  ; 
for  (j  =  0:  j  <  SI2E(a);  j++) 
creCi  +  j]  =  breCj]  ; 
if  (a->type  ==  CMPLX) 

for  (i  =  0;  i  <  SIZE(a) ;  i++) 
cimCi]  =  aimCi]; 
for  (j  =  0;  j  <  SIZE(a);  j++) 
cimCi  +  j]  =  bimCj]  ; 

> 

} 

retiirn(c) ; 

} 

else 

//  error:  dimension  mismatch 

error  (*’appendcols  :  dimension  mismatch”); 

> 

} 

return(NULL); 

} 

/+  transpose  */ 

matrix  ♦transpCmatrix  ♦m) 

matrix  *c; 
int  i ,  j  ; 
c  =  NULL; 
if  (m  !=  NULL) 

if  ((c  =  copy_temp(m) )  !=  NULL) 

c->rovs  =  m->col3; 
c-r>cols  =  m->rows ; 
for  (j  =  0;  j  <  m->cols;  j++) 
for  (i  =  0;  i  <  m->rows;  i++) 

c~>reCj  +  i  ♦  C“>rows]  =  m->reCi  +  j  *  m~>rows] ; 

if  (m->type  ==  CHPLX) 

for  (j  =0;  j  <  m->cols;  j++) 
for  (i  =  0;  i  <  m->rows:  i++) 

c->imCj  +  i  c->rows]  =  m->im[i  +  j  *  m->rows]  ; 

} 

> 

> 

return(c); 

} 

matrix  *herm(matrix  tm) 

{ 

matrix  ♦c; 
int  i ,  j : 
c  =  NULL: 
if  (m  !=  NULL) 

if  {(c  =  copy,  t'jmp(m) )  !=  NULL) 

{ 

c->rows  -  m~^colc; 
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c->col3  =  m->rows : 
for  (j  =  0;  j  <  m-^cols;  j++J 
for  (i  =  0;  i  <  m“>rows;  i++) 

C'->re[j  +  i  ^  C'>rows]  =  m~>re[i  +  j  *  m~>rows]  ; 
if  (m->type  ==  CMPLX) 

{ 

for  (1  =0;  j  <  m->cols;  j++) 
for  (i  =  0;  i  <  m->rows ;  i++) 

c->imCj  +  i  +  c->rows]  =  -m“->imCi  +  j  *  in->rows]  ; 

> 

> 

> 

returnCc ) ; 

> 

/*  floor  function  on  the  matrix  m  */ 
matrix  *mfloor(matrix  ^m) 

{ 

int  i; 

if  (m  !=  NULL) 

for  (i  =0;  i  <  SIZElm;;  i++) 

{ 

m->re[i]  =  f loor (m->re [i] ) ; 
if  (m->type  ==  CHPLX) 

m->imCi]  =  floor (in->im[i]  )  ; 

} 

> 

returnCm) ; 

> 

/*  return  all  cols  of  m  and  rows  indexed  by  a 
Matlab: 

»  m(a,:)  %  return  all  cols  and  rows  of  m  indexed  by  a 

*/ 

matrix  *index_rows (matrix  *m,  matrix  +a)  /*  All  cols,  some  rows  */ 

/*  matrix  »m  source  matrix  */ 

/*  matrix  ♦a  index  macrix  */ 

matrix  *c; 
int  i ,  j ,  k : 

FLOATTYPE  *ci,  =»'ai,  *mi; 
if  (m  !=  NULL  &&  a  ! =  NULL) 

{ 

a  =  mf loor (real{a) ) ;  /♦  real  integer  indicies  only  */ 

if  (a->re Cmin_index(a)]  >  0 

&&  a->re[max  index (a)]  <=  m~>rows)  /*  are  indicies  in  range  */ 

{ 

if  ((c  =  new^temoCSIZECa) ,  m~>cols,  m->type))  !=  NULL) 

{ 

k  =  0; 
ci  =  c->re: 
mi  =  m->re: 

ai  =  a->re;  /*  index  real  part  */ 

for.Cj  =  0;  j  <  m->cols;  j++)  /+  for  all  cols  in  m  ♦/ 
for  (i  =  0;  i  <  SIZ£(a) ;  i++)  /*  for  all  elem.  in  a  */ 

ciCk  *-+]  =  mi  [INT(ai  [i] )  -  1  +  j  *  m->cols]  ;  /*  get  column  */ 
if  (m->cype  ==  CHPLX)  /*  index  imaginary  part  if  needed  */ 

{ 

k  =  0; 
ci  =  C“>im; 
mi  =  m“>iin: 
ai  =  a->re; 

for  (j  =0;  j  <  m->cols;  j++)  /♦  for  all  cols  in  m  */ 
for  fi  =  0;  i  <  SIZE(a) ;  i++)  /*  for  all  elem.  in  a  ♦/ 

=  mi  ClNT(  ai  [i] )  “  1  +  j  *  m->cols]  ;  /*  get  col  */ 
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} 

} 

return(c) ; 


/+  done  ♦/ 


return (NULL) : 

/*  return  all  rows  of  m  and  cols  indexed  by  a 

>>^mO;a)  •/.  return  all  rows  and  cols  of  m  ^ 

»  iii( : )  ’/.  return  m  as  a  column  vector  (a 

♦/  ,  /♦  All  rows,  some  cols  ♦/ 

matrix  *iiidex.cols (matrix  +m,  matrix  / 

/★  matrix  ’♦'m;  source  matrix  / 

/*  matrix  *a;  index  matrix  */ 

matrix  ^c;  . 

int  i ,  j  ,  i 

/•  i' 

^  il  (a  ..  HULL)  /•  «  “O'* 

^  .  =  .iloorCr.alC.)))  ■"  “dici.s  only  </ 

“  /♦  in  tnng.  '/ 

^  li  ((c  =  n.s.t«sp(«->t<J»s.  SIZE(n),  m-itype))  !=  Sold.) 

S  =  0; 

ci  =  c->re; 

oi'=  a->r=’  /*  index  the  real  part  ♦/  +  «  */ 

^or  ("  =0-  j  <  m->cols;  j++)  /*  for  the  whole  row  of  n  */ 

-  n-  i  <  SI2E(a)-  i++)  /*  for  all  elem.  in  a  */ 

^iCj^i'cmUiCi])  - 1)  *  ,  . 

if  (m->tvp*  ==  /*  imaginary  part  if  needed  / 

S=0;  ■ 

ci  =  c->im; 

fL^r="oi  j  <  m->cols:  j++)  /*  for  whole  row  of  _m  */ 
for\i  =  0^  i  <  SI2E(a);  i++)  /*  for  all  elem.  in  a  */ 
ci[k++]  =  miCj  +  (INTCaiCi])  -  D  *  m->cols] , 

> 

reiurn(c);  /♦done*/ 

> 

else 

//  error:  indices  out  of  range  ^ 

error ("index.cols:  indices  out  of  range 

> 


> 

else 

i 


> 


c  =  copy  temp(m);  I*  if  a  ==  NULL,  make  m  a  row  vector.  */ 
c->rows  =  SIZE(m);  this  is  a  raatlab  convention 
c->cols  =1; 

recurn(c>:  /*  <ione  ♦/ 


return(NULL)  ; 


J  V  .1  hu  •»  tii'l  coluniM- i iKli^xed  by  b 

/♦  return  m  row- i>y  ‘ 
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Matlab:  ,  _ 

»  m(a,b;  7.  iudexe::  both  rows  and  cols 

»  m(a)  7*  indexes  m  as  column  vector,  but  returns  a  matrix  vitli  a  s 
7.  dimensions  (b  ==  NULL) 

matrix  *index.rows^cols (matrix  ♦m,  matrix  *a,  matrix  *b) 

/*  matrix  *m;  source  matrix  */ 

/*  matrix  *a;  row  index  matrix  */ 

/*  matrix  *b;  column  index  matrix  */ 

{ 

matrix  *c; 
int  i ,  j  ,  k ; 

FLOATTYPE  *ci,  +ai,  *bi,  =^'mi ; 
if  (m  !=  NULL  &&  a  !=  MULL) 

^  a  =  mfloor(real(a));  /*  only  real  indicies  ♦/ 

b  =  mf loor (real (b) ) ; 

if  (b  ==  MULL)  /*  index  m  as  a  column  vector 

and  use  a’s  dimensions  */ 

if  (a->re [min_index(a)]  >0  •  */ 

a->re[max^index(a)]  <=  SIZ£(m))  /*  indicies  in  range  */ 

if  ((c  =  cooy_tenip(a) )  !=  MULL)  /*  copy  a  */ 

ci  =  c~>re; 
mi  =  ni->re: 
ai  =  a->re; 

for  (i  =  0;  i  <  SIZE(a);  i++)  /*  index  m  */ 
ciCi]  =  miClNT(aiCi]  )  -  ll  ; 

-i-p  (m->xype  ==  CHPLX)  index  imaginary  part  if  needed  ♦/ 

■ 

ci  =  C“>im; 


mi  =  m->im 
for  (1  =  0 


i  <  SIZE(a);  i++)  /*  index  m  */ 


ciCi]  =  miClNT(ai[i] )  -  1]  ; 


return(c) ; 


/*  done  */ 


//  error:  indicies  out  of  range 

error (” index_rows_cols :  indices  out  of  range  ), 

> 

I-  null)  /*  index  both  rows  and  cols  of  m  */ 

^  if  (a->reCmin_index(a)]  >  0  b->reCmin_index(b)]  >  0  && 

a->re[max_index(a)]  <=  in->rows  b->reCmax_index(b)]  <=  m->cols; 

"*■  if  ((c  =  new  ^eT.p(SIZE(a),  SIZE(b) .  m->type))  !=  NULL) 

{ 

ci  =  c->re: 
mi  =  m~>re; 
ai  =  a“>re: 
hi  =  b”>re: 

k  =  0 ;  /*  index  real  part  */ 

for  (j  =  0;  j  <  SIZE(b):  j++)  /♦  for  all  cols  ind.  */ 
fo’-  (.i  =  0;  i  <  SIZE(a):  i++)  /*  for  all  rows  ind.  *l 

hCk^^)  =  miClMT(aiCi])-l  +  (INT(bi[j])  -  1)  ♦  m->cols] ; 
if  (m->cy|;-e  ==  CH.^LX.)  /*  index  imaginary  part  if  needed  */ 


c-> im ; 
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k  =  0; 

for  ( j  =0;  j 
for  (i  =  0; 
ciCk^+]  = 


<  SIZE(b) ;  j++)  /♦  for  all  cols  ind.  */ 
i  <  SIZE(a);  i++)  /♦  for  all  row  ind.  ♦/ 
miClNKaiCil)  -  1  + 

(INT(biCj])  -  1)  *  ni->colsJ; 


} 

>  ,  / 

return(c);  /♦  done  ♦/ 

} 

else 

//  error:  indices  out  of  range 
error('‘index_roM3_cols:  indices  out  of  range"); 

> 

} 

> 

return (NULL) ; 

} 

/♦  make  matrix  of  a  from:step;to  statement, 

Matlab: 

»  from: step: to  /. 

»  from:to  */.  step  ==  NULL  ->  step  size  =  1 


matrix  ♦range ( FLO ATTYPE  from,  FLOATTYPE  step,  FLOATTYPE  to) 

{ 

matrix  *m; 
int  i;  . 

FLOATTYPE  j ; 

m  =  NULL;  , 

if  (step  ==  0)  /*  if  step  ==  0,  set  step  size  =  1  ♦/ 

Step  =1; 

if  (to  <  from  step  <  0)  /*  if  to  <  from  then  step  must  be  <  0  */ 

if  ((m  =  new_temp(l,  INT(1  +  (from  -  to)  /  -step),  REAL))  !=  NULL) 

j  =  from;  /*  start  at  from  */ 

for  (i  =  0;  i  <  SIZE(m) ;  i++)  /*  for  all  elem.  in  m  */ 

m->re[i]  =  jl 

j  +=  step;  /•  update  by  step  size  */ 

■> 

> 

> 

^  /*  step  size  >  0  and  to  >  from  */ 

if  ((m  =  new  tempd,  INT(l  +  (to  -  from)  /  step),  REAL))  !=  NULL) 

j  =  from; 

for  (i  =  0;  i  <  SIZE(m) ;  i++) 

< 

m->re[i]  =  j : 

J  scep;  update  with,  step  size  ♦/ 

> 

^  } 

return(m);  /*  done  ♦/ 

/♦  Returns  a  copy  of  mac  according  to  the  MATLAB  expression 
»m(roM,  col) 

For  use  NULL  for  row  or  col,  tluiC  is 
»m(row ,  : ) 

would  be  coded  a:;  subiuai  r  i  x  Cmac ,  row,  MULL)  */ 
matrix  ♦sub  macrixOnritrix  ♦mat,  matrix  ♦I'ows,  matrix  ♦cols) 
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if  (mat  !=  HULL) 

if  (rows  !=  NULL  &&  cols  !=  NULL)  t  \  / 

returnC  index_rows_cols  (mat ,  rows,  cols));  matCrows,  cols)  */ 
if  (rows  ==  NULL  &&  cols  !=  NULL)  /*  mat(:,  cols)  */ 
returii(index_cols(mat ,  cols)); 

if  (rows  !=  NULL  &&  cols  ==  NULL)  /*  mat (rows,  :)  */ 
return ( indexer ows (mat ,  rows) ) ; 
return(copv_temp(mat ) ) ;  /+  mat(:,:)  */ 

} 

return(mat ) ; 

/*  Assigns  source  to  a  submatrix  of  target  indexed  by  rows  and  cols. 

»target(row3 ,  cols)  =  source  _  . 

rows  and  cols  must  be  vectors  or  NULL,  NULL  is  interpreted  as  : ,  that  is 

»target(rows  ,  : )  =  source 

would  be  coded  as  assign( target ,  rows,  NULL,  source). 

KOTE:  does  not  handle  the  case 
»target(:,:)  =  source 

use  target  =  copy_temp(source)  ,  for  this  case 

matrix  *assign(matrix  ^target,  matrix  *row3 ,  matrix  ^cols,  matrix  ^source) 

{ 

FLOATTYPE  *r,  ^c; 
int  i,  j,  sr,  rr; 

if  (target  !=  HULL) 

if  (rows  !=  NULL  &&  cols  !  =  MULL)  /*  target  (rows,  cols)  =  source  */ 

rows  =  mf loor ( real (rows )) ;  /*  Only  real  integer  indicies  */ 

cols  =  mfloor(real(cols)) ;  /*  Only  real  integer  indicies  */  ^ 

make  sure  dimensions  match  */ 

if  (rows->reCmax.index(rows)]  <=  target->rows  /♦  max(rows)  <=  #  of  rows  in  target  */ 

kk  cols->re [max^index (cols)]  <=  target->cols  /*  max(cols)  <=  #  of  cols  in  target  */ 
kk  rowS“>re [min_index(row3)3  >0  /*  min(rows)  >  0*/ 

kk  cols~>re[min_index(cols)]  >0  /*  min(cols)  >0*/  ^  ^ 

kk  SIZE(rows)  ^  SIZE(cols)  ==  SI2E(source)  )  /*  #  of  elements  indexed  in  target  =  #  of  elemer 

cmplx.promote ( target ,  source); 

r  =  rows->re; 

c  =  cols->re; 

sr  =  source”>rows ; 

tr  =  target->rows ; 

for  (i  =  0;  i  <  SI2E(rows):  i++) 

for  (j  =  0;  j  <  SI2E(cols);  j++) 

target->re[INT(rCi]-l)  +  IKT(c[j]-l)  ♦  tr]  =  source->reCi  +  j  ♦  sr] ; 
if  (target~>type  ==  CHPLX) ; 

target->imClNT(r  [i]-l)  +  INT(cCj]-l)  ^  tr]  =  source->imCi  +  j  ♦  sr] ; 

> 

} 

else 

//  error:  dimension  mismatch 
error (“assign :  dimension  mismatch”); 

> 

if  (rows  !=  NULL  kk  cols  ==  NULL)  /*  target(rows,  :)  =  source  */ 

rows  =  mfloor (real (rows) )  :  /♦  Only  real  integer  indicies  ♦/ 

/♦  make  sure  dimensions  match  */ 

if  (rows->re[max^in'lex(rov;::)]  target '->rows  /*  max(rows)  <=  #  of  rows  in  target  */ 

kk  rowS“>re[min  tnd'.;x  ( rowc )  ]  0  /♦  :;iin(row3)  >  0  +/ 

kk  target'^cols  =•=  1 ;: )  /*  target  cols  =  source  cols  */ 
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cmplx_promote (target »  sources, 

r  =  rows->re; 

sr  =  source->rovs ; 

tr  =  target->rows ; 

for  (i  =  0;  i  <  SIZE(ro«s);  i++) 

for  (j  =  0;  j  <  target->cols:  j++) 

target->reClNT(r[i]-l)  +  j  ♦  tr]  =  source->re[i  +  j  *  sr] ; 
if  (target->type  ==  CHPLX);  ^ ■  r •  ^  ^  *  <=-r1  • 

target->iraClNT(rCi]-l)  +  j  tr]  =  source->im [i  +  j  *  srj  , 

} 

> 

else 

//  error:  dimension  mismatch  ,, \  • 

error(*'assign :  dimension  mismcitch"); 

> 

\f  (rows  ==  HULL  ScSc  cols  !=  HULL)  /»  target(:,  cols)  =  source  */ 

Lis  =  mfloorCreaKcols)) ;  /*  Only  real  integer  indicies  */  ^ 

cois  -  iniioor.reaxv^y4.o^/,  j  o  dimensions  match  */ 

if  (cols->re[max_index(cols)]  <=  target->cols  /*  max(cols)  <=  #  of  cols  in  target 

s  .  so«rc.  r«.s ./ 

cmplx.promctc  ( tcirget ,  scur'^sy, 

c  =  cols->re: 
sr  =  source->ro:-;s ; 
tr  =  target->ro:';s ; 

lor  (i  =  0;  i  <  target->rows ;  i++) 
for  (j  =  0;  j  <  SIZE(cols):  j++) 

target->reCi  +  INT(cCj]-l)  «  tr]  =  source->reCi  +  j  •  sr] ; 
if  (target->type  ==  CHPLX):  ....  , 

target-PiraCi  +  INT(cCj]-l)  ♦  tr]  =  source->imCi  +  j  *  srj ; 

} 

> 

else 

//  error:  dimension  mismatch 

error ( “ass ign  :  dimension  mismatch*’)  j 


return(target ) : 

return (NULL) ; 

} 

/*  Create  a  1x1  matrix  from  a  scalar  . 

matrix  *sclCmat (FLOATTYPE  re»  FLOATTYPE  im,  int  type) 

matrix  *tmp; 

if  ((tmp  =  new_matrix(l ,  1.  type))  !=  HULL) 

tmp-PreCO]  =  re; 
if  (type  ==  CMPI.X) 
t.nio->i!!iC0]  =  im: 

> 

return  (tiao'»  ; 

> 
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H.io  irni-s.ii 

#ifndef  _ utils_h  /*  Include  only  once  +/ 

#define  _ utils_h 

#iiiclude  "types. h’* 

/**  Constants  for  printmO  and  int^printmO  ♦+/ 

#define  PLAIN  0x0  /*  Plain  format  ♦/ 

#define  MATLAB  0x1  /♦  Print  in  MATLAB  style  (with  C  ]  and  ; )  */ 

/*  void  init_GM(void) 
description: 

Initializes  everything.  Clears  error  string  (used  by  get.error^stringO ) , 
sets  output  print  format  to  MATLAB  and  8  digits  (see  init_print () )  and 
initializes  memory  managament  (see  init_temp_list()) . 

init_GM()  should  only  be  ctilled  once  and  be  matched  with  a  close_GH()  call. 

arguments : 

none 

returns : 

nothing 

usage: 

init_GM();  //  Initialize  everything 

see  also: 

close_GH() 

*/ 

void  init_GM(void) ; 

/*  void  close_GM(void) 
description : 

Frees  memory  allocated  to  temporary  matrices  and  cleans  up. 

close„GM()  should  only  be  called  once  and  be  matched  with  a  close_GM()  call. 

Use  kill.temp^list 0  to  just  free  memory  allocated  by  temporary  matrices. 

arguments : 

none 

returns : 

nothing 

usage: 

close_GM();  //  Clean  up 

see  also: 

open_GM() 

*/ 

void  close_GM(void) ; 

/*  matrix  *LV2GM(TDlHdl  re,  TDlHdl  im)  . 
description: 

Copies  Labview  matrices  to  GM  matrices.  No  explicit  memory  allocation  is 

necessary,  that  is  handled  internally. 

arguments: 

TDlHdl  re,  im  Handles  to  Labview  matrix  datastructure 
returns: 

matrix  ♦  Gauss  machine  matrix  with  data  from  input  arguments  re  and  im 
usage: 

A  =  LV2GM(A.real,  A^imag) ;  //  Create  a  GM  matrix  with  real  part  data  from  Aureal 

//  and  imaginary  data  from  A_imag. 
see  also: 

GM2LV() 

*/ 

matrix  ♦LV2GM(TDlHdl  re,  TDlHdl  im) ; 

/*  void  GM2LV(matrix  ♦A,  TDlHdl  re,  TDlHdl  im) 
description: 

Copies  data  from  GM  matrix  to  Labview  matrix.  Note  that  re  and  im  must  be 
already  allocated  and  of  correct  dimensions.  If  A  is  a  real  matrix  then  zeros 
will  be  put  in  im. 
arguments: 

matrix  *a  CM  matrix  whose  data  is  to  be  copied  to  re  and  im 
TDlHdl  re,  im  Handles  to  Labview  matrix  datastructure 
returns : 
nothing 
usage : 

LV2GM(A,  Aureal,  A_u:iag;:  //  Copies  data  from  A  into  A_real  and  A.iraag. 
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see  also: 

LV2GM() 

*/ 

void  GM2i:v(matrix  *A,  TDlHdl  re,  TDlHdl  im) ; 

/♦  init_print (int  sdig,  int  format) 

description:  .  ^  ^ 

Set  number  of  significant:  digits  and  format  for  printmC)  and  int.printmC; 

arguments: 

int  sdig  =  number  of  significant  digits 

int  format  =  {MATLAB  I  PLAIN}  output  format  style 

returns : 
void 

usase :  . 

init_print(6,  MATLAB);  //  6  significant  digits  and  MATLAB  output  format 

see  also: 

printmO,  int_printm() ,  init_GMU 
♦/ 

void  init_print (int  sd::»g,  int  format;; 

/♦  printm(matrix  *mat). 
description: 

prints  a  matrix  to  stdout. 
arguments: 

matrix  *mat  =  matrix  to  be  printed 

returns : 

void 

usage: 

printm(Rxx);  //  prints  Rxx  to  stdout 

see  also:  .  /x 

init_print()  int.printmC) 

♦/ 

void  printm(matrix  ♦mat); 

/♦  int .printmC int .matrix  *mat) 
description: 

prints  an  integer  matrix  to  stdout. 
arguments: 

int  .matrix  *mat  =  matrix  to  be  printed, 
returns : 
void 
usage : 

printm(Rxx) ;  //  prints  Rxx  to  stdout 
see  also: 

init.print (•)  printmO 

*/  . 

void  int.printm( int. matrix  *mat); 

/*  void  get_error(char  *error_strir.g) 

Copies^error  string  to  error.string.  If  an  error  has  occur ed  the  error  str^g 
will  contain  an  error  message,  error.string  must  be  allocated  to  at  least  25b 
chairacters  (by  the  caller) . 
arguments: 

char  ♦error.string  //  will  contain  a  copy  of  the  error  message 

returns : 
nothing 
usage : 

char  err.str [255] ; 

get.error (err.str) :  //  get  error  message 

see  also:  .. 

error(),  clear.error ( ) .  print.error ( ) 

) 

void  get.error (char  ♦error.string;* 

/♦  void  clear.error (void) 

description:  ^ 

Clears  the  error  string.  This  is  typically  done  at  startup  or  after  recovering  from 

an  error, 
arguments: 

nothing 
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returns : 
nothing 
usage : 

clear_error( ) ;  //  Clear  error  messages 
see  also: 

get.errorO,  errorO,  print^error () 

♦/ 

void  clear_error (void) ; 

/♦  void  errorCchar  ♦msg) 
description: 

Copies  the  string  msg  to  the  global  error  string.  This  routine  is  used  to  report  errors. 
The  error  string  can  be  recovered  by  get_error() .  Maximum  length  of  msg  is  255  characters 
argrunents : 

char  *msg;  //  Error  message  to  be  copied  to  the  global  error  string. 

returns : 

nothing 

usage: 

error(*‘Division  by  zero  is  a  bad  idea”);  //  Post  division  by  zero  error  message 
see  also: 

get_error(),  clear_error ( ) ,  print.error ( ) 

*/ 

void  error(char  ’►msg) ; 

/*  void  print_error(void) 
description: 

Prints  the  global  error  string  to  stderr. 

arguments : 

none 

returns : 

nothing 

usage: 

print_error ( ) ;  //  Print  error  string  to  stderr. 
see  also: 

get_error(),  clear_error( ) ,  errorO 

*/ 

void  print„error(void) ; 

#endif 


H.ll  UTILS. C 

#include  <stdio.h> 

#include  <string.h> 

#include  **utils.h” 

#include  "matrix. h” 

static  int  sigdig  =6;  /*  Number  of  signaificant  digits  in  printouts,  default  6  */ 

static  int  pformat  =  PLAIN;  /*  Format  info  for  print  routines  */ 
static  char  padch  =  *  /*  character  to  printed  between  imaginary  part  and  j  */ 

static  char  err_str [255] ;  /*  string  for  error  messages  */ 

void  init.GM( void) 

/*  Initialize  everything  ♦/ 
init^temp^list 0 ; 
init_print(S,  MATLAB) ; 
init_conv(2l ,  6) ; 
clear_error( ) ; 

} 

void  close  GH(void) 

i 

/*  Close  up  everything  ♦•/ 
kill_teinp_l  isc  ( )  ; 

/*  Convert  LV  matrices  to  CM  matrices  ►/ 
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matrix  ♦LV2GH(TDlHdl  re,  TDlHcll  im) 

{ 

matrix  ♦tmp; 

int  rows,  cols,  i,  j; 

FLOATTYPE  *GMre,  ♦GHim,  +LVre,  *LVim; 

if  (re  !=  NULL  &&  im  !=  NULL)  /*  Check  for  NULL  pointers  */ 

^  .  .  r  n 

rows  =  (*re) ->dimSi2es [0] ; 
cols  =  (*re)-'>dimSizes  [l]  ; 
if  (  (*im)->dimSi2es [0]  ==  0  ) 
tmp  =  new.tempCrows ,  cols,  REAL); 
else 

tmp  =  new^tempCrows ,  cols,  CMPLX) ; 
if  (tmp  !=  NULL) 

HLock(re);  /♦  Be  safe  */  .  , 

LVre  =  (*re)~>argl ;  /*  Dereference  data  pointers  for  real  part  */ 

GMre  =  tmp->re; 

for  (i  =  0;  i  <  rows:  i++)  /*  Copy  real  LV  data  to  GM  data  */ 

for  (j  =  0;  j  <  cols;  j++) 

GMreCi  +  j  ♦  rows]  =  LVre[i  ♦  cols  +  j]  ; 
if  (tmp->type  ==  CMPLX) 

HLock(im);  /*  Be  safe  ♦/  ^  / 

LVim  =  (*im)->argl;  /*  Dereference  data  pointers  for  real  part  ♦/ 

GMim  =  tinp->ini; 

(i  =  0;  i  <  rows;  i++)  /*  Copy  complex  LV  data  to  GM  data  */ 

for  (j  =  0;  j  <  cols;  j++) 

GMimCi  +  j  *  rows]  =  LVimCi  *  cols  +  j]  ; 

HUnlock(im) ; 

} 

HUnlock(re); 

> 

> 

return (tmp ) ; 

> 

/*  Convert  GM  matrices  to  LV  matrices  */ 
void  GH2LV(matrix  ♦a,  TDlKdl  re,  TDlHdl  im) 

i 

int  rows,  cols,  i,  j; 

FLOATTYPE  *GMre,  *GMim,  *LVre,  *LVim; 

if  (a  !=  NULL  &&  re  !=  NULL  &&  im  !=  NULL)  /♦  Check  for  NULL  pointers  */ 

rows  =  (*re)->dimSi2es [0]  : 
cols  =  (*re)->dimSi2es [l] ; 

if  (a— >rows  ==  rows  &&  a->cols  ==  cols)  /*  make  sure  dimensions  match.  ♦/ 

{ 

flLock(re);  HLock(im);  /*  Be  safe  */ 

LVre  =  (★re)-'>argl ; 

LVim  =  (♦im)->argl; 

GMre  =  a->re ; 

GMim  =  a->im; 

for  (i  =  0;  i  <  rows;  i++) 

for  (j  =  0;  j  <  cols:  j++) 

LVreCi  *  cols  +  j]  =  GMreCi  +  j  *  rows]; 
if  (a->type  ==  CMPLX) 

LVimCi  ♦  cols  +  j]  =  CMimCi  +  j  ♦  rows]; 
els  e 

LVimCi  ♦  cols  +  j]  =  0: 

} 

> 
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EUnlock(re) ;  HUnlockC im) ; 

> 

else 

{ 

//  error:  dimension  mismatch 
error  (*'GH2LV  :  dimension  mismatch"); 

} 

> 

> 

/♦  Clears  error  string  +/ 
void  clear_error ( void) 

strcpy(err_str ,  "Wo  error  reported"); 

> 

/*  Copies  error  string  to  error.string  */ 
void  get  error(char  *error_string) 

strcpy(error_string,  err^str); 

} 

/*  Copies  msg  to  err^str  */ 
void  error(char  *nisg) 

{ 

strncpyCerr  str,  mssr,  254); 

> 

void  print_error (void) 

{ 

fprintf  (stderr ,  "'/.sXn"  ,  err_str ) ; 
fflush(stderr) ; 

> 

void  init.printCint  sdig,  int  format) 

i 

sigdig  =  sdig; 
pformat  =  format ; 

padch  =  (pformat  &  MATLAB)  ?  ' ^ 

> 

/*  Print  matrix  to  stdout  */ 
void  printm(matrix  *m) 

i 

int  i .  j ; 
if  (m  !=  NULL) 

if  (pformat  &  MATLAB) 
printf (" [") ; 

for  (i  =  0;  i  <  m->rows;  i++) 

for  (j  =  0;  j  <  m->cols;  j++) 

{ 

if  (m”>type  ==  REAL) 

printfC"  */,  ;?+:*g",  sigdig,  sigdig,  m->reCi  +  j  *  m“>rows] ) ; 
els  e 

Sprint!  ("  y.  ^?^,*gy,#+*.*gy.cj", sigdig,  sigdig,  in-'>reCi  +  j  *  iQ->rows]  , 
sigdig,  sigdig,  m->imCi  +  j  *  m->rows] ,  padch); 

> 

if  (pformat  k  MATLAB) 
printf (" ; " ) : 
printf ("\n" ) : 

} 

if  (pformat  ft  MATLAB) 
printf ("] ") : 
printf ( "\n"  )  ; 

} 

> 
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/*  Print  integer  matrix  to  stdout  */ 
void  int  printm( int_matrix  ♦m) 

i 

int  i ,  j  ; 
if  (m  !=  MULL) 

if  (pformat  &  MATLAB) 
printf  (’•[”) ; 

for  (i  =  0;  i  <  m->row3 ;  i++) 

for  (j  =  0;  j  <  m->cols;  j++) 

^  if  ((j  >  0)  &&  (j  %  4  ==0)) 
printf ("Xn”) ; 
if  (m->type  ==  REAL) 

printfC*  •/.  Id  ",  m->re[i  +  j  *  m->rows] )  ; 

^^printfC"  y.  Idy.+ldy.cj  ",  m->reCi  +  j  ♦  m->rows]  , 
m->imCi  +  j  *  m->rows] ,  padch) ; 

if  (pformat  &  MATLAB) 
printf(";"); 
printf ("\n") ; 

if  (pformat  &  MATLAB) 
printf("]"); 
printf ( "\n" ) ; 

} 

> 
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